ich habe mit mittels
Blattanzahl = InputBox("Anzahl der zusätzlichen Blättter eingeben")
For x = 1 To Blattanzahl
Sheets("1").Select
Sheets("1").Copy after:=Sheets(2)
Next x
eine autmatische generierung der gewünschten zusätzlichen Blätter erstellt
nun wollte ich aber das diese automatisch mit fortlaufenden Zahlen z.Bsp. 1,2,3,4, etc. benannt werden. Bitte helft mir.
Gruß Mike