Excel VBA: Datei-Backupsicherung

Makros in Excel können hilfreich sein und und die Arbeit erleichtern. Aus meiner Sicht sollte man sparsam damit umgehen. Trotzdem hier ein kleines Makro, was die geöffnete Excel Datei im aktuellen Pfad als Kopie mit vorangestelltem Datum und Uhrzeit abspeichert:

Sub Backup()  
 'speichert das aktuelle Dokument im aktuellen Pfad mit Datum und Zeit vorangestellt  
 ' Beispiel: "20200101_1015_Dateiname.EXT"
 FN = ThisWorkbook.Path & "\" & Format(Date, "yyyymmdd") & "_" & Format(Time, "hhmm") & "_" & ThisWorkbook.Name
 'deklariert als Variable  
 MsgBox "Die aktuelle Datei wird als Backup gesichert", , "Excel Backup"  
 'Ausgabe einer Box  
 MsgBox ThisWorkbook.Path & "\" & Format(Date, "yyyymmdd") & "_" & Format(Time, "hhmm") & "_" & ThisWorkbook.Name, , "unter diesem Namen"  
 'unbenutzt--MsgBox FN  
 'unbenutzt--ActiveWorkbook.SaveCopyAs FN  
    If MsgBox("OK sonst Abbrechen", vbOKCancel) = vbOK Then  
        ActiveWorkbook.SaveCopyAs FN  
        Else  
        Exit Sub  
    End If  
End Sub  

Ich kein VBA Kenner, deshalb sorry fürs Design

Der Code ist über den VBA Editor in Excel einzubinden: ALT+F11 aufrufen,
Tabelle auf rechter Auswahl "doppel klicken",
Code in das sich öffnende Fenster eintragen,
STRG+S speichern,
Verknüpfen z.B. über einen Button in der Tabelle (Entwicklertools und Button einfügen).