Nie je možné odstrániť všetky druhy modulov, nemôžete odstrániť kodexy pre pracovné listy,
grafy a ThisWorkbook. V týchto moduloch musíte odstrániť obsah namiesto samotného modulu:
Sub DeleteModuleContent (ByVal wb As Workbook, _ ByVal DeleteModuleName As String) 'deles the content 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 Koniec chybou pri chybe GoTo 0 Koniec pod
Príklad:
DeleteModuleContent ActiveWorkbook, "Sheet1"