In diesem Beispiel sollen hinter den 3 bereits bestehenden Tabellenblättern 10 neue erzeugt und mit Test1, Test2 usw beschriftet werden.

 

 

Der Code für ein allgemeines Modul

 

Public Sub NeueBlaetter()

Dim intI As Integer

For intI = 1 To 10

  Worksheets.Add.Move after:=Worksheets(Worksheets.Count)

  Worksheets(Worksheets.Count).Name = "Test " & intI

Next intI

End Sub