color function

[povertyhill]

Hi,
I am new here. Have used spreadsheets a fair amount but wanted to sum by font color. Using this formula it works fine only when you make changes, change font color or add or delete numbers in the column it will not return the answer until you double click on cell with the formula then click on empty cell. What am I doing wrong?
=ColorSum(B2,D4:D36)


Function ColorSum(ColorCell As Range, SumRange As Range) As Variant
Dim Cell As Range
For Each Cell In SumRange
If Cell.Font.ColorIndex = ColorCell.Font.ColorIndex Then
ColorSum = Cell + ColorSum
End If
Next
ColorSum = ColorSum
End Function

[shg]

Excel does not recalculate based on color changes; color is not data to Excel.