Since Excel don=C2=B4t recognize Colours as "necessary to=20
recalculate", add Now():
=3DIF(Now()*0+FontColor(A1)=3D3,"Red","Black")

How does NOW() affect the calculation?

NOW() doesn't cause a calculation. This will have no=20
effect in the formula. Are you thinking that because NOW()=20
is volatile this causes a calculation? It doesn't.

Biff

-----Original Message-----
Hi,

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

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

Then use the new Function:=20
=3DFontColor(A1)

Since Excel don=C2=B4t recognize Colours as "necessary to=20
recalculate", add Now():
=3DIF(Now()*0+FontColor(A1)=3D3,"Red","Black")

Ola
.