Tabellencodename ändern

Hallo,

ich möchte das ein Tabellenblatt, das ich via makro erstelle den Codenamen ändern. Es wird bei mir immer ein Laufzeitfehler angezeigt,

Kann mir da jemand helfen?

Private Sub NeueTabelleErstellen()
Dim Tabellenanzahl As Long
Dim Tabellencodename As String, Tabellenname As String


'Tabellenblatt hinzufügen
Worksheets.Add After:=Worksheets(Worksheets.Count)
'Tabellenblattname ändern '
Tabellenname = InputBox("Wie soll das Tabellenblatt heißen?", "Name des Tabellenblattes")
ActiveSheet.Name = Tabellenname
'Tabellencodename ermitteln
Tabellenanzahl = ActiveWorkbook.Worksheets.Count + 1

If Tabellenanzahl  10 Then
    Tabellencodename = "t0" & Tabellenanzahl & "_" & Tabellenname
Else
    Tabellencodename = "t" & Tabellenanzahl & "_" & Tabellenname
End If

'Tabellencodenamen ändern
ThisWorkbook.VBProject.VBComponents(Tabellenname).Properties(5).Value = Tabellencodename
End Sub