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