[EXCEL-VBA] Macro x creare e rinominare i fogli di lavoro

[baldo2]

Costruito il primo foglio di lavoro, nominato "1", ho la necessità di replicarlo per 50 volte, rinominando i fogli con numerazione progressiva: "2","3","4", ecc. Ho costruito una macro per copiare i primo foglio di lavoro ("1") per 50 volte (For.. to... next). I fogli creati sono nominati, in sequenza: "1(2)", "1(3)", "1(4)", ecc. e non riesco a farli rinominare in: "2", "3", "4", ecc. ( ho utilizzato: Sheets("1(2)").Name = "2" , ecc.). Dove sbaglio? Potete aiutarmi?
Grazie.

[Tribuno]

Ciao baldo,

se è un'operazione una-tantum ed i fogli sono 50 prova così

Codice: Seleziona tutto

Sub Rinomina ()
For I = 1 To 50
   Sheets(I).Name = I
Next
End Sub

Ciao
Tribuno

[baldo2]

Grazie Tribuno