Funktion automatisch berechnen

wenn ich die Schriftfarbe einer Zelle ändere, muss ich immer F9 drücken, damit nachfolgende Funktion neu berechnet wird. Geht das nicht auch automatisch?

Vielen Dank für den abschließenden Tipp

PeTeR

Function AnzFarbe(rngBereich As Object) As Integer
Dim rngZelle As Range
Application.Volatile
For Each rngZelle In rngBereich.Cells
If rngZelle.Font.ColorIndex = 3 Then
intCounter = intCounter + 1
End If
Next rngZelle
AnzFarbe = intCounter
End Function