Refresh af funktion

Jeg har følgende funktion, der tæller antallet af farvede celler:

Function TælAlleHvisFarve(TælOmråde As Range, FarveCelle As Range) As Double
Dim Celle As Range, iColor As Integer
Dim Tæller As Double

Application.Volatile
For Each Celle In TælOmråde
    If Celle.Interior.ColorIndex = FarveCelle.Interior.ColorIndex Then Tæller = Tæller + 1
Next Celle
TælAlleHvisFarve = Tæller
End Function

Hvis jeg tilføjer flere farvede celler, skal formlen tælle op med det samme. Der er dog en forsinkelse på, så dette ikke sker med det samme.
Hvordan refresher jeg funktionen, og kan man skrive dette i VBA?