Hallo zusammen,

ich bräuchte mal bitte Eure Hilfe. Ich habe ein Excel Tool in dem mehrere Buttons und auch zwei Comboboxen sind. Da ich die Datei nach Bearbeitung als Anhang an einer Email versenden möchte muss ich den Code und die Buttons vorher löschen. Dazu um die Buttons zu löschen habe ich folgenden Code:

Public Sub Clear_ButtonsActiveSheet()

Application.DisplayAlerts = False

Dim WsTab As Worksheet
Dim i As Long
Dim xOLE As OLEObject
On Error Resume Next
For Each WsTab In Sheets
    WsTab.Activate
    For Each xOLE In ActiveSheet.OLEObjects
            xOLE.Delete
    Next
Next
Application.DisplayAlerts = True

End Sub

Jetzt mein Problem. In der Zeile " xOLE.Delete" kommt jedes mal wenn ich den Code laufen lasse die Meldung " Wechsel in den Haltemodus zu diesem Zeitpunkt nicht möglich." Was muss ich tun oder richtig machen so das der Fehler nicht mehr erscheint?

Danke an Euch im Voraus