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
Bookmarks