Ciao Raven
Ti riallego il tuo file dove ho inserito la macro che vedi qui e che è associata al pulsante "Crea Nuova Scheda" sul foglio "Riepilogo"
vb
Sub DuplicaFogli()
Dim i As Integer
Dim ur As Long
Application.ScreenUpdating = False
Sheets("Schedanuova").Range("ba:ba").ClearContents
For i = 3 To Sheets.Count
ur = Sheets("Schedanuova").Cells(Rows.Count, "BA").End(xlUp).Row
Sheets("Schedanuova").Cells(ur + 1, "BA").Value = CInt(Sheets(i).Name)
Next i
Sheets("Schedanuova").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = WorksheetFunction.Max(Sheets("Schedanuova").Range("BA:BA")) + 1
ActiveSheet.Range("BA:BA").ClearContents
Application.ScreenUpdating = True
ActiveSheet.Range("A1").Select
End Sub
Sul foglio "Schedanuova" c'è una colonna nascosta (la BA) che occorre per la determinazione del numero del nuovo foglio.
Per quanto riguarda l'ultima domanda la questione è, almeno per me un po' più complessa.
Se tu sul foglio "Riepilogo" hai delle formule che puntano ai fogli come fai ad inserirne altre quando i fogli non esistono ancora?
Secondo me va trovato un diverso approccio.
Ovviamente se la cartella dovesse contenere pi di 46 fogli le formule dovranno essere ricopiate dalla riga 50 in poi; in questo caso, però, più formule metti più il file si rallenta.
Fai sapere.
[Modificato da alfrimpa 12/12/2018 15:41]
Alfredo