Automatisierungsfehler - Function

Private Function DINKW(dat As Date) As Integer
Dim dbl As Double
dbl = DateSerial(Year(dat + (8 - Weekday(dat)) Mod 7 - 3), 1, 1)
DINKW = (dat - dbl - 3 + (Weekday(dbl) + 1) Mod 7) \ 7 + 1
End Function

und rufe diese über die folgende Formel auf:
=VERKETTEN("Aktuelles Datum: ";TEXT(HEUTE();"TT.MM.JJ");" - Kalenderwoche: ";DINKW(HEUTE()))
Bei ersten Aufruf dieser Funktion bekomme ich die Meldung:
Automatisierungsfehler
SChwerwiegender Fehler
Beende ich den Debugger und speichere ich die Exceldatei mit dem Makro, so funktioniert dies beim nächsten Aufruf einwandfrei.
Da ich die Datei an Schüler weitergeben möchte, wäre ich für einen Hinweis, wie ich dieses Verhalten vermeiden kann, sehr dankbar.
Gruß
Stefan Manemann