Font Color Function

D

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
 
Top