For more than one value:

If Range("A1").Value = SomeValue Then
Range("A1").Font.ColorIndex = 3
ElseIf Range("A1").Value = AnotherValue Then
Range("A1").Font.ColorIndex = 12
End If

Or you could use select case if you have several values to check.



"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