ryguy

You posted the correct URL for Chip's site but did not read the site
introduction info before posting.

NOTE: These functions will not detect colors that are applied by Conditional
Formatting. They will read only the default colors of the cell and its text.
For information about returning colors in effect by conditional formatting, see
the Conditional Formatting Colors page.

See Chip's site and hit the link for more info and methods.

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


Gord Dibben MS Excel MVP


On Mon, 12 Nov 2007 18:25:00 -0800, ryguy7272
wrote:

Take a look at this:
(Counting Cells With A Specific Color)
http://www.cpearson.com/excel/colors.htm


You could try this macro too:
Sub countcolor()
Dim rng As Range
Dim cnt As Long

Set rng = Range("A1:E12")
cnt = 0

For Each cell In rng
If cell.Interior.ColorIndex = 3 Then
cnt = cnt + 1
End If
Next
MsgBox cnt
Range("G1").Value = cnt
End Sub



Regards,
Ryan--