Have a look here
http://www.cpearson.com/excel/colors.htm

--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2000 & 97
** remove news from my email address to reply by email **
"gwag17 " wrote in message
...
I am trying to write a function that will calculate the sum of cells in
a range depending on their background color.
I have looked on the net and found some sample code, tried it and it
doesnt work.

the code is as follows:

Function colorfunction(rcolor As Range, rRange As Range, Optional SUM
As Boolean)

Dim rcell As Range
Dim lCol As Long
Dim vresult

lCol = rcolor.Interior.ColorIndex

If SUM = True Then
For Each rcell In rRange
If rcell.Interior = lCol Then
vresult = WorksheetFunction.SUM(rcell, vresult)
End If
Next rcell
Else
For Each rcell In rRange
If rcell.Interior.ColorIndex = lCol Then
vresult = 1 + vresult
End If
Next rcell
End If

colorfunction = vresult


End Function

The count part of this works, however if i try the SUM, it gives me a
#VALUE!

Any help on this would be great.

Cheers


---
Message posted from http://www.ExcelForum.com/