Danke für die Info

Dim SavedBook As String
Const MaxBooks = 5
'Maximal 5 Sicherungen von http://www.ms-office-forum.net/forum/showthread.php?t=271536
Dim I As Integer
Dim BackupPfad As String
Dim KillBook As String
'

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
   
    BackupPfad = Environ("Userprofile") & "\Desktop\"
            'etwas hinter Desktop schreiben ändert nur den Namen der Datei"
            'ThisWorkbook.Path`= speicher einen höher und löscht nicht die > 5 Stck raus,
            'ThisWorkbook.Name = speicher im selben Ordner, und löscht nicht die > 5 Stck raus,
            'ThisWorkbook.FullName = läuft auf Laufzeitfehler 53 auf.

    SavedBook = BackupPfad & "Backup - *"
    'Pfad der Backups festlegen

    KillBook = "Backup - 99999999999999.xlsm"
    'KillBook mit neuest möglichem Datum versehen
   
    I = 0
    SavedBook = Dir(SavedBook)
    'Erstes Backup suchen
   
    While SavedBook <> "" And I < MaxBooks
    'Gibt es Backups? Und sind es auch 5?
        If KillBook > SavedBook Then
        'ist Killbook neuer als das Backup?
            KillBook = SavedBook
            'Killbook wird mit dem älteren backup belegt
        End If
        I = I + 1
        SavedBook = Dir
        'Nächstes Backup suchen
    Wend
   
    If I = MaxBooks Then
    'Wenn es schon 5 Backups gibt, wird das älteste gelöscht
        Kill BackupPfad & KillBook
    End If

    With ActiveWorkbook
        .SaveCopyAs BackupPfad & "Backup - " & _
                                Format(Now(), "yyyymmddhhnnss") & ".xlsm"
        ' mit "yyyymmddhhnnss" ist es einfacher die älteste Mappe zu finden
        'als mit "DD.MM.YY HH.MM" und Sekunden sind jetzt auch dabei
        'Und die Minuten sind ^^ NN, nicht MM
       
        '.Close
        'Warum Close...
    End With
   
    'Workbooks.Open oldBook
    '...und wieder Open? Bei Close würde die VB Ausführung stoppen.
   
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True