Option Explicit
Sub shwMsg()
Application.OnTime Now + TimeValue("00:00:15"), "sveMe" '<---- change time delay here. Currently set to 5 minutes.
End Sub
Sub sveMe()
Application.DisplayAlerts = False
ThisWorkbook.Save
sveWrkBk
Application.DisplayAlerts = True
shwMsg
End Sub
Sub stopMacros()
Exit Sub
End Sub
'saves file every 15 secs
Sub sveWrkBk()
Dim FName As String
Dim FPath As String
Dim dt As String
Dim wb As String
Application.ScreenUpdating = False
Application.DisplayAlerts = False
wb = ActiveWorkbook.Name
'ActiveWorkbook.SaveAs Filename:= _
' "F:\Documents and Settings\Tim\My Documents\" & wb & ".cen", FileFormat:=xlText, _
' CreateBackup:=False
dt = Format(Now(), "mm-dd-yyyy hh mm")
FPath = "C:\Users\jimga\Desktop\" ''<--- Change SAVE DIRECTORY as required
FName = wb & dt ''<--- Change name if required .. just this part / Auto Backup File - \
ThisWorkbook.SaveCopyAs Filename:=FPath & FName & ".xlsm"
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub