Charlie,
Here are 5 functions that will count the colored rows for you. If you put these in a code module for your workbook and then in a cell type:
"=CountRed()", it will return a value of rows that are red.
I did my best in assigning the color codes, but i'm not sure if they are the same codes that your workbook is, so you will need to check that, and make corrections if needed. Let me know if you need some more help!
Ryan
Function CountRed()
LastRow = Range("A65000").End(xlUp).Row
CountRed = 0
For x = 1 To LastRow
Debug.Print Rows(x).Interior.ColorIndex
If Rows(x).Interior.ColorIndex = 46 Then CountRed = CountRed + 1
Next x
End Function
Function CountYellow()
LastRow = Range("A65000").End(xlUp).Row
CountYellow = 0
For x = 1 To LastRow
Debug.Print Rows(x).Interior.ColorIndex
If Rows(x).Interior.ColorIndex = 6 Then CountYellow = CountYellow + 1
Next x
End Function
Function CountGreen()
LastRow = Range("A65000").End(xlUp).Row
CountGreen = 0
For x = 1 To LastRow
Debug.Print Rows(x).Interior.ColorIndex
If Rows(x).Interior.ColorIndex = 50 Then CountGreen = CountGreen + 1
Next x
End Function
Function CountLime()
LastRow = Range("A65000").End(xlUp).Row
CountLime = 0
For x = 1 To LastRow
Debug.Print Rows(x).Interior.ColorIndex
If Rows(x).Interior.ColorIndex = 43 Then CountLime = CountLime + 1
Next x
End Function
Function CountNoFill()
LastRow = Range("A65000").End(xlUp).Row
CountNoFill = 0
For x = 1 To LastRow
Debug.Print Rows(x).Interior.ColorIndex
If Rows(x).Interior.ColorIndex = xlNone Then CountNoFill = CountNoFill + 1
Next x
End Function