Ok, here is what I am attempting to use but the Application.OnTime is not stopping / killing the timer. Please advise what is wrong with this code:

In ThisWorkBook

Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:01:00"), "AutoSave"
End Sub

Private Sub Workbook_Close()
Application.OnTime EarliestTime:=Now + TimeValue("00:01:00"), Procedure:=AutoSave, Schedule:=False
End Sub

In Module1

Sub AutoSave()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ThisWorkbook.Save
Application.OnTime Now + TimeValue("00:01:00"), "AutoSave"
Workbooks.Open ActiveWorkbook.FullName '<=====this will reopen the workbook to show 'any changes that have been done by other users
Application.DisplayAlerts = True

End Sub