VBA: problemer med refresh/gem kode

Hej Alle sammen

Jeg har fundet frem til denne kode, for at gemme og refreshe i et bestemt interval:

Option Explicit
Public dTime As Date

Sub GemProcedure()
        dTime = Now + TimeValue("00:00:20")
        Calculate
        ActiveWorkbook.Save
        Application.StatusBar = "Gemmer " + CStr(Now)
        Application.OnTime dTime, "GemProcedure", , True
   
End Sub

Sub StopProcedure()
    Application.OnTime dTime, "GemProcedure", , False
End Sub

- GemProceduren virker fint med oprettet knap. MEN StopProceduren melder fejl når jeg trykker på den - gad vide hvad jeg gør galt?