CF doesn't set the colorindex. To test what colour a cell is with CF, you
have to test whether it matches the condition within CF.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Vince" wrote in message
...
I have cells that are set with conditional formatting to be either red,
yellow, or green. I am trying to loop through the cells, and when the
cell
color is red I need to increment the "intOutOfLimit counter". The problem
I
am having is everything I have tried, including the code below, when the
statement "ColorIndex < 10" is executed it returns a value of -4142 for
each
cell no matter what the color. Does anyone have any suggestions.
Thanks,
Vince

Do Until rw = 22
For i = 2 To 26
If Sheets("PM").Cells(rw, cl).Interior.ColorIndex < 10 Then
intOutOfLimit = intOutOfLimit + 1
End If
cl = cl + 1
Next
cl = 2
rw = rw + 1
Loop