VBA code to check font color

[ExcelinExcel]

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

[Leith Ross]

Hello ExcelInExcel,

Yes, you need to declare the object type of the variable being passed as a Range.

Function Checkcolor(cell As Range) As String

  If cell.fontcolor.ColorIndex = 1 Then Checkcolor = "BLACK"

End Function

Sincerely,
Leith Ross