Count number of rows NOT filled with color and provide message box popup

[ChrisOK]

Need to provide a count to the analyst: Number of NON-Colored Rows (these are our primaries) and we have to record it on an activity report.
Looking for VBA that will start at ROW 5 and count downward any rows that have been highlighted....
Actually, the count could simply count any colored rows in COL A as it is always highlighted as part of the row...

Then provide a pop up message: "Number of Non-Colorized Rows = 3075"
With an OK button to dismiss it. Hopefully, this is not hard to achieve?

 

[bruderbell]

How about this:

Sub macro()
q = 0
For Each x In Range(Cells(5, 1), Cells(Rows.Count, 1).End(xlUp))
If x.Interior.Color <> 16777215 Then q = q + 1
Next x
MsgBox ("Number of Non-Colorized Rows = " & q)
End Sub

It counts cells in column A, starting with A5, that have data but are not highlighted.

 

[ChrisOK]

OMG >that< is the coolest! LOVE IT!
Thanks! You're awesome!

I'll click "LIKE" on your post to help you out!