Checking the font color

--------------------------------------------------------------------------------

I want to write output based on font color

Connected
Connected
Connected


For the above , I want to see BLACK, RED and BLUE in the cells right of them

I tried the following code:

(created a module in the worksheet, saved it with Alt Q and it shows up in my user defined function list)

Function Checkcolor(cell) As String
If
cell.fontcolor.ColorIndex = 1 Then
Checkcolor = "BLACK"


End Function

Giving me a #value error - what I am doing wrong, will passing the parameter as a range help?

Tia,

XIX