Kazalo
Ni mogoče izbrisati vseh vrst modulov, ne morete izbrisati kodnih modulov za delovne liste,
lestvice in ta delovni zvezek. V teh modulih morate izbrisati vsebino namesto samega modula:
Sub DeleteModuleContent (ByVal wb kot delovni zvezek, _ ByVal DeleteModuleName As String) 'izbriše vsebino DeleteModuleName v wb' uporabite to, če ne morete izbrisati modula On Error Resume Next z wb.VBProject.VBComponents (DeleteModuleName) .CodeModule. 1, .CountOfLines se konča z napako pri vklopu Pojdi na 0 End Sub
Primer:
DeleteModuleContent ActiveWorkbook, "Sheet1"
