Backup File

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
Dim saveDate As Date
    Dim saveTime As Variant
    Dim formatTime As String
    Dim formatDate As String
    Dim backupFolder As String

    saveDate = Date
    saveTime = Time

    formatTime = Format(saveTime, "hh.MM.ss")
    formatDate = Format(saveDate, "DD MMM YYYY")

    Application.DisplayAlerts = False
        backupFolder = ThisWorkbook.Path & "\"
        ActiveWorkbook.SaveCopyAs Filename:=backupFolder & Replace("Backup-" & ActiveWorkbook.Name, ".xlsb", "") & " " & formatDate & " " & formatTime & ".xlsb"
    Application.DisplayAlerts = True

'    MsgBox "Backup Successfully In The Path " & backupFolder
End Sub