Hi there,

Anyone know of an easy way to count the number of cells with a conditional format that has been applied?

I have a range of cells which turn yellow if they hold suspect data. I want to warn the user to review it before they pull the trigger on another macro...

I tried this:

Sub test()
Dim cl As Range, clcount As Long
For Each cl In Selection
    If cl.Interior.ColorIndex = 6 Then
        clcount = clcount + 1
    End If
Next cl
    MsgBox clcount
End Sub
No hits, though. I'm sure I can find something, but am just wondering if someone else has already been there and can save me some time.