Thanks Rob,
That solution works well.
I've never used Iif before.


"Rob van Gelder" wrote in message
...
Here's the code way:

Sub test()
With Cells(3, 3)
.Interior.Color = IIf(.HasFormula, vbBlue, vbBlack)
End With
End Sub


There is also a Named Range method, which is kind of dodgy and crashes
XL97 users under specific conditions - on my website "IsFormula"


--
Rob van Gelder - http://www.vangelder.co.nz/excel


"fitful_thought" wrote in message
...
How do I get the font color to be black if cells(3,3) contains "=today()"
but to be blue if cells(3,3) contains (for example) "30 Oct 2004"?