Hab heute schon mal gepostet und gedacht, dass es passt.
Möchte alle Bilder löschen aber nicht die Buttons mit den Makros.
Hab erfolgeich den Button "NPlanung" vor dem Löschen gerettet. Jetzt habe ich aber noch 2 weitere mit den Namen "A" und "B" und weiss nicht wie ich die anfügen soll, damit auch die nicht gelöscht werden.
Bitte um Hilfe!
Vielen Dank
Martin
Folgenden Code habe ich jetzt
Private Sub NPlanung_Click()
Dim sh As Shape
For Each sh In ActiveSheet.Shapes
If sh.Name <> "NPlanung" Then
sh.Delete
End If
Next
End Sub