Невозможно удалить все типы модулей, вы не можете удалить модули кода для рабочих листов, диаграмм и ThisWorkbook. В этих модулях вы должны удалить содержимое, а не сам модуль:

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

Пример:

DeleteModuleContent ActiveWorkbook, "Sheet1"