Sub test()
Dim shp As Shape
Dim nRed As Long
Dim nBlue As Long

For Each shp In ActiveSheet.Shapes
Select Case shp.Fill.ForeColor.SchemeColor
Case 10: nRed = nRed + 1
Case 12: nBlue = nBlue + 1
End Select
Next shp
End Sub

You will have to experiment to see what the schemecolor values are, they are
not the sam e as colorindex (!)
--
HTH

Bob Phillips

"Nimrod" <spikelee7@hotmail.com> wrote in message
news:eFrbHvKUFHA.1384@TK2MSFTNGP09.phx.gbl...
> I've gotten great help from this group recently and am thankful. I'm
> hopeful someone has an answer (or web link) for the following need. I
have
> a worksheet that has about 100 rectangles that have been renamed to
various
> names. Some of these rectangles are red, others blue, and so forth.
>
> Is there any VBA code that will allow me to total how many of these
> rectangles are red, how many are blue, then plant those figures into a
cell
> so I can total them up and create a graph?
>
>