J

#### jlclyde

to sum based on fill color but how do you do an average? Here is the

code I have now.

Function AVGColor(rColor As Range, Range As Range)

Dim rCell

Dim iCol As Integer

Dim C As Range

Dim vResult As Double

iCol = rColor.Interior.ColorIndex

For Each rCell In Range

If rCell.Interior.ColorIndex = iCol Then

vResult = WorksheetFunction.Sum(rCell, vResult)

End If

Next rCell

For Each C In Range

If C.Interior.ColorIndex = rColor.Interior.ColorIndex Then

Count = Count + 1

End If

Next C

If AVGColor = vResult / Count = Numeric Then

AVGColor = vResult / Count

Else: AVGColor = ""

End If

End Function

Thanks for the help,

Jay