Phil, I think you have a point, this is slightly overkill. I tend to avoid custom coding where possible, you can do this in the text box properties directly (modified to show a black to red continuum for ease of use):
="#" & Right("0" & Hex(RGB((Fields!Num.Value/Max(Fields!Num.Value,"dsBounds"))*255,0,0)), 2) & "0000"
I set my text to white so it would show up when the value was all black, I'm sure this could be further tweaked to make it prettier.
**Edit - sample crappy report attached
---------------------------------------------------------
How best to post your question[/url]
How to post performance problems[/url]
Tally Table:What it is and how it replaces a loop[/url]
"stewsterl 80804 (10/16/2009)I guess when you stop and try to understand the solution provided you not only learn, but save yourself some headaches when you need to make any slight changes."