Es ist nicht möglich, alle Arten von Modulen zu löschen, Sie können nicht die Codemodule für Arbeitsblätter löschen,
Diagramme und ThisWorkbook. In diesen Modulen müssen Sie statt des Moduls selbst den Inhalt löschen:
Sub DeleteModuleContent(ByVal wb As Workbook, _ ByVal DeleteModuleName As String) ' löscht den Inhalt von DeleteModuleName in wb ' verwenden Sie dies, wenn Sie das Modul nicht löschen können On Error Resume Next With wb.VBProject.VBComponents(DeleteModuleName).CodeModule ..DeleteLines 1, .CountOfLines End With On Error GoTo 0 End Sub
Beispiel:
DeleteModuleContent ActiveWorkbook, "Blatt1"