Tabellenblätter benennen

Thema: Allgemein - Gruppe Arbeitsblatt

Arbeitsmappe

017198    007398

Problem: Wie kann ich ein neues Tabellenblatt hinzufügen und es mit der nächsten fortlaufenden Nummer benennen?

StandardModule: basMain

Sub NewSheet()
    Dim sName As String
    sName = Format(Right(Worksheets(2).Name, 3) + 1, "000")
    sName = Left(Worksheets(2).Name, 3) & sName
    Worksheets.Add.Move after:=Worksheets(Worksheets.Count)
    ActiveSheet.Name = sName
End Sub