Zellen per Skript aktualisieren

Hallo zusammen,

kurz vorm Wochenende sitze ich an folgendem Kniff:

Meine Excel-Tabelle enthält eigene Funktionen, wie z.B. checkdata(), die prüft, ob eine bestimmte Datei im Verzeichnis vorhanden ist.
Nun das interessante Phänomen, dass sich diese Funktion nur dann aktualisiert, wenn ich in die Zelle Doppelklicke und mit Enter bestätige.

Weder F9, noch >>Super-F9 Kombinationen<< helfen.

Aus Gründen der Nutzerfreundlichkeit brauche ich einen Button, der diese Zellen aktualisiert.
Mit Application.Calculate funktioniert es nicht.

Was bietet Ihr?

Vielen Dank und guten Start ins WE!
Danke sehr.
Nico

Sub UeberschreibenMitEigenemInhaltZurAktualisierung()
Dim i As Integer
Dim zelle As Range
Dim content1 As String

i = Selection.Cells.Count

For Each zelle In Selection
    zelle.Formula = zelle.Formula
Next zelle

End Sub

Application.Volatile