Count coloured Cells

Here is a great site to get a function to count colored cells


http://www.cpearson.com/excel/colors.htm

here's a code that will give you a list of the colours and their index numbers

I first found this code at Andrew's Excel tips
http://blog.livedoor.jp/andrewe/arch...at_103343.html
hit Alt f11
insert
module
copy this code into the module
run the macro
test it on a new workbook first so you see what it does first

Sub ShowColorIndex()
On Error Resume Next
Workbooks.Add
Do While ActiveCell.Row < 57
With ActiveCell
.Interior.ColorIndex = .Row
.Offset(, 1) = .Row
.Offset(1).Select
End With
Loop
Cells(1, 1).Select
End Sub