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