Conditional Font Color

[Jim Brass]

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

[Gary Keramidas]

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

--


Gary


"Jim Brass" <[email protected]> wrote in message
news:[email protected]...
> 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
>