You need to stop the Ontime sub when the workbook closes by running the disable sub.Try this in the This.Workbook module

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Disable
End Sub