Macro for Auto Back Up the excel file
Sub Auto_Save () Dim savedate savedate = Date Dim savetime savetime = Time Dim formattime As String formattime = Format ( savetime , "hh.MM.ss" ) Dim formatdate As String formatdate = Format ( savedate , "DD - MM - YYYY" ) Application . DisplayAlerts = False Dim backupfolder As String backupfolder = "D:\Back Up\" ActiveWorkbook . SaveCopyAs Filename := backupfolder & formatdate & " " & formattime & " " & ActiveWorkbook . Name ActiveWorkbook . Save Application . DisplayAlerts = True MsgBox "Backup Run. Please Check at: " & backupfolder & " !" End Sub