If Range("A1").Value = SomeValue Then
Range("A1").Font.ColorIndex = 3 'ColorIndex 3 is Red
End If


"Robin" wrote in message
...
How do I create a macro or program to change the font color of a
particular
cell based on the value of the cell, e.g. 1 3 5 7, change the font color
to
red, if 0, 00 change font color to green and bold, thanks in advance