Function
works after You've changed its value ... not it's color.Function is_color(r)
co = "no color"
For Each c In r
If c.Interior.ColorIndex <> xlNone Then co = "color"
Next c
is_color = co
End Function
Sub FindColor()
MsgBox "Background " & Selection.Interior.ColorIndex
MsgBox "Font Color " & Selection.Font.ColorIndex
End Sub
Changing a cell colour doesn't trigger any events that you can respond to.I need to update automatically as soon as I change color.