Buy me a cup of coffee
:)
Alle Makros löschen
Public Sub DeleteMacros() Dim vbc As Object With ThisProject.VBProject For Each vbc In .VBComponents Select Case vbc.Type Case 1, 2, 3: .VBComponents.Remove .VBComponents(vbc.Name) Case 100 With vbc.CodeModule .DeleteLines 1, .CountOfLines End With End Select Next End With End Sub
Ein Marko löschen
Public Sub DeleteMacro() With ThisProject.VBProject .VBComponents.Remove .VBComponents("Modul1") End With End Sub