Sheet Index die 2te

Sub Codes_löschen1()
With ThisWorkbook.VBProject.VBComponents("Tabelle34").CodeModule
.DeleteLines 1, .CountOfLines
End With
End Sub

funktioniert wunderbar. Beim zweiten:

Sub Codes_löschen()
With ActiveWorkbook.VBProject.VBComponents(29).CodeModule
.DeleteLines 1, .CountOfLines
End With
End Sub

passiert überhaupt nichts. Ich muss das Blatt aber über den Sheet.Index ansprechen.

Das Makro:

Private Sub Worksheet_Activate()
Range("I4") = ActiveSheet.Index
End Sub

gibt mir in Zelle I4 den Wert 29 aus

im ProjectExplorer heisst das entsprechende Blatt Tabelle34(Leer(2))

Wo liegt mein Fehler??

Ich bitte um Eure Hilfe.

Grüsse

Wolfgang