Non è possibile eliminare tutti i tipi di moduli, non è possibile eliminare i codemodules per fogli di lavoro, grafici e ThisWorkbook. In questi moduli devi eliminare il contenuto invece del modulo stesso:

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

Esempio:

DeleteModuleContent ActiveWorkbook, "Sheet1"