Code löschen
27.07.2004 14:32:18
eres
mit folgendem Code:
Worksheets("BS Sheet").Activate
With ActiveWorkbook.VBComponents(ActiveSheet.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
möchte ich den kompletten Code im Arbeitsblatt "BS Sheet" löschen.
Als Fehlermeldung erhalte ich Nr. 438, Objekt unterstützt diese Methode oder Eigenschaft nicht. Ich vermute das in der Klammer nach VBComponents der Fehler liegt.
Kann mir jemand helfen ?
Danke vielmals im voraus.
Gruss
eres