ich habe nach langer suche den Code zusammengebaut wie ich aus allen Arbeitsblättern den Code löschen kann.
Doch irgendwie bekomme ich immer wieder Typen Unverträglichkeitsfehler 13.
Könnt ihr mir helfen warum?
Sub Codeloeschen()
Dim sht As Worksheets
For Each sht In ThisWorkbook.Worksheets
With ThisWorkbook.VBProject.VBComponents(sht.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
Next sht
End Sub