Hi,

I've just learned this by Arvi. Include Only this VBA/Macro:

Public Function FontColor(MyCell As Range) As Variant
FontColor = MyCell.Font.ColorIndex
End Function

Then use the new Function:
=FontColor(A1)

Since Excel don´t recognize Colours as "necessary to recalculate", add Now():
=IF(Now()*0+FontColor(A1)=3,"Red","Black")

Ola