Function TextColour(rng As Range)
If rng.Cells.Count 1 Then
TextColour = CVErr(xlErrRef)
Else
TextColour = rng.Font.ColorIndex
End If
End Function

IF(TextColour(A1),1,2)

but it won't refire if the cell changes colour, as that does not trigger a
sheet recalculation.

--
HTH

Bob Phillips

"Alan Armstrong" wrote in message
...
I need a cell formula that does this:

IF (foreground text color=whatever, action 1, action 2)

Is there a simple way that doesn't require screeds of code?

Alternatively, is there some other visible cell property I could change
(such as bold) to switch between actions?

Alan