T4721_Create Backup SaveCopyAs Method

https://excel-egy.com/forum/t4721
---------------------------------

Sub Create_Backup_SaveCopyAs_Method()
    Dim sPath As String

    sPath = "F:\"

    Application.DisplayAlerts = False
        With ThisWorkbook
            .SaveCopyAs Filename:=sPath & Format(Date, "DD-MM-YYYY") & "_" & .Name
        End With
    Application.DisplayAlerts = True
End Sub