Function automatisch neu berechnen

Function in einem Standardmodul:

Function CountColor(rng As Range, iColor As Integer)
On Error GoTo ende
Dim rngAct As Range
Dim iCount As Integer
Application.Volatile
For Each rngAct In rng.Cells
If rngAct.Interior.ColorIndex = iColor Then
iCount = iCount + 1
End If
Next rngAct
CountColor = iCount
'Worksheets("Januar").UsedRange.Columns("C:C").Calculate
ende:
End Function

In einer "Summenzelle" in der Tabelle steht: =CountColor(C$2:C$43;38)

Wenn ich im Bereich "C$2:$C43" die Hintergrundfarbe lösche oder neu setze, wird in der " _
Summenzelle" nicht neu berechnet. Ich muss dies manuell per F9 machen. In den Optionen ist "automatische "Neuberechnung" gesetzt. Kann ich die automatische Neuberechnung irgendwie in die 

Function hineinbekommen? Ein - nicht funktionierender - Ansatz von mir ist oben genannt: " _
Worksheets("Januar").UsedRange.Columns("C:C").Calculate" .
Hilfe wäre nett.
Grüße Burghard