Ok, so my UDF isn't even working. I tried using yours, thing is I need 2
cells. I'm not familar enough with this to have the system move a cell over
and apply the same formating. I always get $value when I do the UDF in the
neighbouring cell. I'm getting the impression I'm going about some of this
the wrong way.

Do you have any good reference sites that have additional examples? (or know
how to include 2 cells? Like the current cell and the left to the current
one?)




"JW" wrote:

Here's a little something to change color based on cell value in the
current selection. You can then write a little code to sum up the
number of cells with an interior color index of a certain color. You
could even do that with a UDF.
Sub foofer()
Dim r As Range
For Each r In Selection
Select Case r.Text
Case "Fred"
r.Interior.ColorIndex = 6
Case "Tom"
r.Interior.ColorIndex = 4
Case Else
r.Interior.ColorIndex = xlNone
End Select
Next r
End Sub
Mitch wrote:
I'm looking to change the color of numbers based on the text beside the column.
Then I need to sum up the values based on those colors.

I started things by using a Conditional Format, but that won't work. I
believe I have the code for the rest of this project though.

Also I'm looking through the Visual Basic Editor, there is a listing of all
the functions you can use, but no real detail or what they do. Any
information on where to find that? I could do this on my own if I knew more
about the calls to Excel.