Option Explicit
Public sec As Integer
Public when As Variant
Sub do_something()
when = Now + sec / 60 / 60 / 24
Application.OnTime when, "do_something"
ThisWorkbook.Save
End Sub
Private Sub stop_it()
Application.OnTime EarliestTime:=when, Procedure:="do_something", schedule:=False
End Sub