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

Join Our WhatsApp Group

Nazim Khan — Founder & Editor, TechGuruPlus.com
[MBA in Finance]

Nazim Khan has spent over ten years working with Excel, Tally and office documentation in accounts, finance and MIS roles. He has been running TechGuruPlus.com since 2016, where he publishes free editable templates for office work, and the YouTube channel Business Excel. He has trained more than 50,000 people online. Every template on this site is built and checked by him before it is published.

Contact · Excel Course

Leave a Comment Cancel reply