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!

Something along these lines should work.

If cells are colored by conditional format:

For Each c In myRange
If c.FormatConditions.Interior.ColorIndex = 3 Then
'Do something
End If

If cells are colored by standard format or code:

For Each c In myRange
If c.Interior.ColorIndex = 3 Then
'Do something
End If

"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!

You realize, of course, that is not complete code.

"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!

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!

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!

"Aaron" wrote:

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


In that case you just insert the FormatConditions property like:

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






"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!