Zählenwenn Zelle rot

ich möchte die Anzahl aller rot hinterlegten Zellen in einem Range zählen. Hierzu habe ich folgende Function in ein Modul eingetragen:

Function RotZaehlen(Rg)
Dim C As Range
For Each C In Rg.Cells
If C.Interior.ColorIndex = 3 Then
RotZaehlen = RotZaehlen + 1
End If
Next C
End Function

Das funktioniert soweit auch. Aber wenn sich die Anzahl der rot gefärbten Zellen nun ändert, aktualisiert sich das Ergebnis nicht selbstständig. (erst nach Doppelklick, bzw. Neu-Eingabe der Funktion)

weiß jemand Rat?

schönen Dank
Christoph