Need To ID A Cell If Text In A Cell Is In Color

[HowdeeDoodee]

I need a formula or macro to ID whether a cell contains text in any color other than the default black. The column with the color text to be ID'd is column C. When the macro or formula is run I want the macro or formula to say "color" in column D if any cell in col C has text with color.

Thank you in advance for any replies.

 

[VoG]

Try

Sub Colors()
Dim c As Range, LR As Long
LR = Range("D" & Rows.Count).End(xlUp).Row
For Each c In Range("D1:D" & LR)
    If c.Font.ColorIndex <> xlAutomatic Then c.Offset(0, -1).Value = "Color"
Next c
End Sub

 

[HowdeeDoodee]

Thank you VoGII. The macro works great. Really appreciate your help.