I used this to figure out the colors on a sheet I set up

Sub test()
Dim r As Range
For Each r In ActiveSheet.UsedRange
Debug.Print r.Address, r.Interior.ColorIndex, r.Font.Color
Next r
End Sub

But you'll have to check for yourself.

I believe what you want is
If ActiveCell.font.color = 255 then

end if

--
HTH,
Barb Reinhardt



"Can-Ann" wrote:

Using Office 2007
I want to run a specific routine if a cell foreground is red.
Can anyone show me what the formula would be.
Thanks in Advance