AW: mehrere Makros mit VBA löschen
31.12.2006 12:47:21
Nepumuk
Hallo fuzzi,
versuch es mal damit:
Public Sub alle_Makros_loeschen()
Dim objVBComponents As Object
With ActiveWorkbook.VBProject
For Each objVBComponents In .VBComponents
Select Case objVBComponents.Type
Case 1, 2, 3 'Module, Klasssenmodule, Userforms
If objVBComponents.Name <> "Modul1" Then _
.VBComponents.Remove .VBComponents(objVBComponents.Name)
Case 100 'Workbook, Sheets
With objVBComponents.CodeModule
.DeleteLines 1, .CountOfLines
End With
End Select
Next
End With
End Sub
Gruß
Nepumuk