Tæl antallet af farvede celler

Hej,

Jeg har et excel ark med nogle farvede celler. Jeg vil gerne lave en sammentælling af de farvede celler - uanset farve.

Jeg har aktiverede makroer indsat følgende:

Function ColorCount(rRange As Range, rColor As Range) As Double
    Dim rCell As Range
    Dim dCount As Double
    dCount = 0
    Application.Volatile
    For Each rCell In rRange
        If rCell.Interior.ColorIndex = rColor.Interior.ColorIndex Then
            dCount = dCount + rCell
        End If
    Next rCell
    ColorCount = dCount
End Function


Herefter bruger jeg =colorcount(D6:X6)

Men formlen melder fejl.

Hvad kan jeg mon have gjort forkert??