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