No there isn't a way to do that directly.

Chip Pearson illustrates one approach:

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

--
Regards,
Tom Ogilvy


"Vince" wrote in message
...
There are 15 rows by 25 columns. Each row has a different CF that applies
to
all of the columns in that row. I think you are saying to check the value
of
the cell against the CF condition, but I would have to code the CF
condition,
or try to put it in a table of cells somewhere wouldn't I? I there not a
way
in VB to check the CF condition, what state it is, or what color it is?
For example row 10 CF is this: Between .49 and .54 = Green, < .49 =
Yellow,
and .54 = Red.

Thanks for your help
Vince
"Bob Phillips" wrote:

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