Try
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