Font Color Function

[lynn]

Is there a function that will return the font color used
in a cell?

 

[Don Guillett]

Put this in a REGULAR module. Then
=fc(a4)
if red will give you 3

Function fc(x)
fc = x.Font.ColorIndex
End Function