Would anyone like to tell me how it would be possible to add only the cells
that are colored e.g. red through a range

Mo

Would anyone like to tell me how it would be possible to
add only the cells that are colored e.g. red through a range

Function SumRed(Target As Range) As Integer
Dim c As Range

For Each c In Target
If c.Interior.ColorIndex = 3 Then SumRed = SumRed + 1
Next c
End Function

HTH,
Merjet

Mo,
You need to use a VBA procedure to do this. See the SumByColor function at
www.cpearson.com/excel/colors.htm .


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
www.cpearson.com


"Mo" wrote in message
...
Would anyone like to tell me how it would be possible to add only the
cells
that are colored e.g. red through a range

Mo

If c.Interior.ColorIndex = 3 Then SumRed = SumRed + 1
That should have been:
If c.Interior.ColorIndex = 3 Then SumRed = SumRed + c

Merjet

Thanks to Chip & merjet for the help


"Mo" wrote in message
...
Would anyone like to tell me how it would be possible to add only the
cells
that are colored e.g. red through a range

Mo