seems to work here, you just have to have the cells selected before you
execute the code

--


Gary


"Jim Brass" wrote in message
...
How can I change the Font color based on a number?

I tried:

For Each Cell In Selection

On Error Resume Next

If Cell.Value < 140 Then Cell.Interior.ColorIndex = 30
If Cell.Value < 140 Then Cell.Font.ColorIndex = 2


'other code for lower temperatures

Next


Thanks for any help! Jim