Ciao Massimiliano

ed un saluto a Luca  

Come ti ho detto nell'alltra tua discussione sull'argomento, rimango dell'idea che è meglio che il nome dei

fogli, come tutti i nomi degli oggetti, sia più semplice possibile e senza caratteri speciali.

Comunque visto che ti piace e lo vuoi con il trattino........

prova questa.

RICORDA:

Studiatela bene per sapere come fare le modifiche in futuro, nel caso il trattino richiesto ti crei dei problemi.

Ciao

Frank

Sub duplicafogli()

Dim giorno As String, mese As String, anno As String, contatore As String
Dim shs As Integer, r As Integer

controllo:
contatore = InputBox("Quanti fogli vuoi creare?")

If contatore = "" Then
    MsgBox ("Devi inserire un numero")
    GoTo controllo
End If

giorno = Mid((Date) + 1, 1, 2) ' parte dal giorno dopo la data corrente

For r = 1 To Val(contatore)
    
    If Len(giorno) = 1 Then
        giorno = "0" & giorno
    End If
    
    mese = Mid((Date), 4, 2)
    anno = Year(Date)
    nomef = giorno & "-" & mese & "-" & anno

    
        ActiveSheet.Copy After:=Sheets(Sheets.Count)
        shs = Sheets.Count
        Sheets(shs).Name = nomef
        
    giorno = giorno + 1
 
Next r
End Sub

caro Massimiliano,

tu non leggi o non ti ricordi quello che leggi!!!

rileggi il post #27241 a questa discussione

macro per moltiplicare un foglio excel

Passo, e CHIUDO

Frank