Adding cells in a range based on format color

[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

Mo

 

[merjet]

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

 

[Chip Pearson]

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

 

[merjet]

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

Merjet

 

[Mo Childs]

Thanks to Chip & merjet for the help