Red Dot

One way

Sub test()
    Application.ScreenUpdating = False
    With Range("g3", Range("g" & Rows.Count).End(xlUp))
        .FormatConditions.Delete
        .Font.ColorIndex = xlAutomatic
        .Value = Evaluate("if(isnumber(search("",""&" & .Address & _
        "&"","","",X,D,B,E,""&char(8572)&"","")),""#N/A"","""")")
        On Error Resume Next
        With .SpecialCells(2, 16)
            .Value = ChrW(9679)
            .Font.Color = vbRed
        End With
        On Error GoTo 0
    End With
    Application.ScreenUpdating = True
End Sub

Hmm. When I run the code listed above it seems to clear all the contents in column G. Let me dig into this a bit deeper, I must be missing something.