Dachte Ich auch erst, lässt sich aber nicht reproduzieren.

Eigentlich auch logisch, da die Application keine aktives Member zu dasein benötigt.

(wie bspw. eine Arbeitsmappe mind. ein Tabellenblatt halten muss)

Sub Test01()
    Application.OnTime Now() + TimeSerial(0, 0, 3), "Test002"
    ThisWorkbook.Close False
End Sub

Sub Test002()
    Application.Calculation = xlCalculationAutomatic
End Sub