01
02
03
04
05
06
07
08
09
10
11
12
13 |
|
Sub Module_Entfernen()
' Achtung: Unter Makrosicherheit im Trustcenter den Haken setzen
Dim VBComp As Object
For Each VBComp In ThisWorkbook.VBProject.VBComponents
If InStr("Modul3,Modul5,Modul6,", VBComp.Name & ",") > 0 Then
If VBComp.Type = 1 Then ' Type: 1=Modul
ThisWorkbook.VBProject.VBComponents.Remove VBComp
End If
End If
Next
End Sub
|