VBA Code to Create a Backup of a Current Workbook in Excel

VBA code that you can use to create a backup of the current workbook in Excel

VBA Code:

Sub CreateWorkbookBackup()
    Dim originalPath As String
    Dim backupPath As String
    
    ' Set the original path of the workbook
    originalPath = ThisWorkbook.Path & "\" & ThisWorkbook.Name
    
    ' Set the backup path with a timestamp
    backupPath = ThisWorkbook.Path & "\" & "Backup_" & Format(Now(), "yyyy-mm-dd_hhmmss") & "_" & ThisWorkbook.Name
    
    ' Create a backup of the workbook
    ThisWorkbook.SaveCopyAs backupPath
    
    ' Inform the user about the backup creation
    MsgBox "Backup created at: " & backupPath
End Sub


Check All VBA Codes

Join Our Telegram Group techguruplus telegram group Join Our WhatsApp Group techguruplus whatsapp group

Leave a Comment