Function txtclr(r As Range) As Integer
txtclr = r.Font.ColorIndex
End Function

This UDF will return the number corresponding to the font color.
--
Gary''s Student - gsnu200715


"FreddieP" wrote:

Hi.
I have in a single column the letter S written and it is formatted in
different colors. I would like to identify the different colors.

If it is black just return B or what ever word, just something sop I can
separate them from each other.

Like an if formula only it searches for formatting instead of a value.

Kind regardas
Freddie