What if it is a conditional formatting that turns the cell red??

"JLGWhiz" wrote:

Here is code that will work if the cells are red by standard format method.

Sub cntclr()
Count = 0
For Each C In Worksheets(1).Range("A1:F20") 'Change range for needs.
If C.Interior.ColorIndex = 3 Then
Count = Count + 1
End If
Next
MsgBox Count
End Sub

"Aaron" wrote:

I am looking for a way to count the number of Red Cells on a worksheet and
return that number is a message box. Thanks in advance!