Es ist nicht möglich, alle Arten von Modulen zu löschen. Sie können die Codemodule für Arbeitsblätter, Diagramme und ThisWorkbook nicht löschen. In diesen Modulen müssen Sie den Inhalt anstelle des Moduls selbst löschen:

Sub DeleteModuleContent(ByVal wb As Workbook, _

ByVal DeleteModuleName As String)

' deletes the contents of DeleteModuleName in wb

' use this if you can't delete the module

On Error Resume Next

With wb.VBProject.VBComponents(DeleteModuleName).CodeModule

.DeleteLines 1, .CountOfLines

End With

On Error GoTo 0

End Sub

Beispiel:

DeleteModuleContent ActiveWorkbook, "Sheet1"