[ChrisGT7]

Καλησπέρα σας και καλή εβδομάδα,

Νίκο, σε συνέχεια του μηνύματος του Τάσου, παραθέτω και ένα παράδειγμα κώδικα:

Sub APO8HKEYSH()
    Dim MyPath As String
    MyPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & Application.PathSeparator
    
    ActiveWorkbook.SaveCopyAs MyPath & _
        "Αρχείο\Το βιβλίο μου 2024 (Για αρχείο).xlsm"
    
    ActiveWorkbook.SaveAs MyPath & _
        "Το βιβλίο μου 2025.xlsm"
End Sub

Η μεταβλητή MyPath νομίζω πως απαντάει και στο ερώτημά σου για την εύρεση του φακέλου της επιφάνειας εργασίας σε άλλους υπολογιστές.