Hallo an die VBA Götter und Göttinnen, ich habe ein schönes Makro, das mir ein neues Excelblatt mit fortlaufender Nummerierung einfügt. Ich möchte jedoch das aktuelle Excelblatt kopiert mit dieser Nummerierung einfügen. Ich weiß nur nicht, wie ich das Copy integrieren kann:

Sub Tabellenblatt()
Dim n#
With Worksheets.Add(after:=Sheets(Sheets.Count))
For i = 0 To 255
On Error Resume Next
If i = 0 Then
.Name = "Pos. " & Format(i, "000")
Else
.Name = "Pos. " & Format(i, "000")
End If
If Err.Number = 0 Then Exit For
Next i
End With
End Sub

Bedeutet for i = 0 to 255, dass ich max 255 Blätter kopieren kann? Ich möchte hier mich nicht limitieren.

Das mit dem Button verknüpfen bekomme ich hin... (immerhin ^^)

Danke schon mal!