fejl i kode? Nogen der vil kigge på den

jeg er ved at lave et excel skema (kalender) hvor jeg bruger farver til forskellige ting, jeg har fået den til at tælle antal farver men jeg kan ikke få den til at opdatere når der sker ændringer. der er fejl i min makro kode

Private Sub Worksheet_Change(ByVal Target As Range)
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 + 1
        End If
    Next rCell
    ColorCount = dCount
End Function