Nu este posibil să ștergeți tot felul de module, nu puteți șterge codemodulele pentru foile de lucru,
diagrame și ThisWorkbook. În aceste module trebuie să ștergeți conținutul în loc de modul în sine:
Sub DeleteModuleContent (ByVal wb As Workbook, _ ByVal DeleteModuleName As String) 'șterge conținutul DeleteModuleName din wb' utilizați acest lucru dacă nu puteți șterge modulul On Error Resume Next With wb.VBProject.VBComponents (DeleteModuleName) .CodeModule .DeleteLines 1, .CountOfLines Termină cu On Error GoTo 0 End Sub
Exemplu:
DeleteModuleContent ActiveWorkbook, "Sheet1"