Zmazanie Modulu1 v aktívnom workbooku takto:Sub DeleteModule()
Dim myWrkb As Workbook
Set myWrkb = ActiveWorkbook
myWrkb.VBProject.VBComponents.Remove myWrkb.VBProject.VBComponents.Item("Module1")
End Subcitovat
Dim myWrkb As Workbook
Set myWrkb = ActiveWorkbook
myWrkb.VBProject.VBComponents.Remove myWrkb.VBProject.VBComponents.Item("Module1")
End Subcitovat