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
Nazim Khan - Author Image

Nazim Khan (Author) 📞 +91 9536250020
[MBA in Finance]

Nazim Khan is an expert in Microsoft Excel. He teaches people how to use it better. He has been doing this for more than ten years. He is running this website (TechGuruPlus.com) and a YouTube channel called "Business Excel" since 2016. He shares useful tips from his own experiences to help others improve their Excel skills and careers.

Leave a Comment