Copire e salvare intera cartella di lavoro con altro nome e in altro posto, senza alterare e rinominare il foglio su cui si lavora.

La domanda sembra tortuosa, però non riesco a venirne a capo, vi allego la macro che fa il lavoro come vorrei, ma solo una parte, perché fatto la copia ed il salvataggio dove deve, mi ritrovo con i foglio su cui sto lavorando rinominato come da macro, cosa che invece vorrei ritrovarmi operativo con il mio vecchio foglio e con il nome di originario.

Nome foglio originale : Lavoro 2019.xlsm

Sub Salva_Foglio_Completo() ' non deve però rinominare il foglio su cui si stà lavorando
Dim nomefile, Percorso As String
Workbooks(1).Activate
Percorso = "d:\Archivio 2019\"
nomefile = "Archivio Completo - Anno " & Range("O11").Value
ActiveWorkbook.SaveAs Percorso & nomefile
End Sub
-------------------------------
E' ovvio che la macro deve essere aggiustata, ma i miei tentativi non hanno prodotto l'effetto voulto. So che da Voi ci sono dei Santoni inmateria ed oltretutto dei Buoni Samaritani che aiutano indefessamente i prossimo. Grazie Giacomo Un saluto particolare a Giuseppe

Scusate mi sono scordato il pezzo finale più significativo.
A lavoro finito mi ritrovo in
D:\Archivio 2019\ (il foglio/Cartella completo)
"Archivio Completo - Anno 2018.xlsm" e va benissimo,
non va bene invece che il foglio su qui sto lavorando sia stato rinominato anchesso, diventato "Archivio Completo - Anno 2018.xlsm"
foglio lavoro che invece dovrebbe rimanere "Lavoro 2019.xlsm" come in origine prima della macro.
Grazie
Giacomo

Cambia la riga che effettua il salvataggio a così:

Rollis13, ciao Giacomo.
Grazie per la tua immediata risposta, la correzzioe fa esattamente quello che non riuscivo a fare, però ha un inconveniente, non aggiunge il suffisso dell'estensione, vale a dire salva il tutto senza ".xlsm", cosa che la precedente funzione metteva. Penso che x te sia una banalità. Grazie fin da subito.
Giacomo

Rollis13, a riciao Giacomo
risolto l'inconveniente, aggiunto alla fine della riga della tua correzzione :
ActiveWorkbook.SaveCopyAs Percorso & nomefile & (".xlsm")
e tutto x incanto funziona.
Grazie ragazzi siete mitici.
Problema risolto GRAZIE A VOI
Giacomo

Grazie del riscontro positivo; per il ritocchino vedo che c'hai messo poco ad entrare nella normalità 😁.

Troppo bravi !! con il Vostro aiuto, anche i somari volano.
Grazie anche x la pazienza con cui ci aiutate.
Giacomo