[ChrisGT7]

Καλησπέρα Νίκο,

Δοκίμασε τον παρακάτω κώδικα:

Option Explicit

Sub APO8HKEYSH()
    Dim MyPath As String
    MyPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & Application.PathSeparator
    
    With ActiveWorkbook
        .SaveCopyAs MyPath & [LastYear]
        .SaveAs MyPath & [NextYear]
    End With
End Sub

Σύμφωνα με όσα προαναφέρθηκαν παραπάνω και το παράδειγμά σου:
- Στο LastYear θα υπάρχει η τιμή Αρχείο\Το βιβλίο μου 2024 (Για αρχείο).xlsm
- Στο NextYear Το βιβλίο μου 2025.xlsm
- Και στην επιφάνεια ο φάκελος Αρχείο.