Bei diesem Makro könnt Ihr, per Inputbox, bestimmen, wie viele neue Arbeitsblätter in die Tabelle eingefügt werden sollen. Diese werden im Beispiel nach dem Tabellenblatt 3 eingefügt.

Option Explicit

Sub Blaetter_hinzufuegen()
    Dim i As Integer
    i = InputBox("Wie viele Blätter sollen hinzugefügt werden?")
    Do Until i < 1
        Sheets.Add after:=Sheets(3)
        ActiveSheet.Name = "Name " & i
        i = i - 1
    Loop
End Sub