Sheet Index

Dieser Code:

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

funktioniert wunderbar solange der VB-Name (nicht der Blattname) des Blattes feststeht. Nach dem Kopieren und Verschieben des Blattes innehalb der gleichen Mappe haben sich der VB-Name und auch der Sheet("Name") geändert. Lediglich der Index Sheet(29) bleibt immer gleich. Wie kann ich das Blatt ansprechen?

Bin für jede Hilfe dankbar.

Grüsse

Wolfgang