Ciao,
con questa semplice macro
Sub copia_fogli()
ActiveSheet.Copy Before:=Workbooks("filedestinazione.xlsx").Sheets(1)
End Sub
copio nel filedestinazione.xlsx il foglio attivo
Vorrei poter estendere il suo lavoro in modo che copi nel filedestinazione.xlsx tutti i fogli che ho selezionato (numero e nomefoglio variabili).
Ho cercato in rete , ma non ho trovato la sintassi giusta per poterlo fare. Il registratore di macro (che a volte aiuta parecchio) propone l'operazione indicando il nome dei fogli
Sheets(Array("foglio2", "foglio3", "foglio5", "foglio7")).Select
ma nel mio caso il loro nome e il loro numero variano di volta in volta. C'è il modo per risolvere il problema?
Grazie assai, buona serata

salve prova così:

For Each Sh In ActiveWindow.SelectedSheets
Sh.Copy Before:=Workbooks("filedestinazione.xlsx").Sheets(1)
Next
saluti
Giap

---