Macro Macro löschen

Sub Makro_löschen()
Dim FoundFlag As Boolean
Dim Zeilen()
Makroname = "meinmacro"
Suchtext = "

Sub " & meinmacro & "()"
Set VBE = Application.VBE.ActiveCodePane.CodeModule
FoundFlag = False
With VBE
For x = 1 To .CountOfLines
If UCase(.Lines(x, 1)) = UCase(Suchtext) Then FoundFlag = True
If FoundFlag Then
Zähler = Zähler + 1
ReDim Preserve Zeilen(Zähler)
Zeilen(Zähler) = x
If .Lines(x, 1) = "End Sub
" Then

.DeleteLines Zeilen(1), UBound(Zeilen)

Exit For

End If

End If

Next x

If Not FoundFlag Then MsgBox "Makro " & meinmakro & _

" nicht gefunden !", vbCritical

End With

End Sub