habe folgendes geschrieben um bestimmte Shapes zu löschen die mit einem bestimmten Namen anfangen aber er tut nix: Woran liegts ? Danke
Sub delete_Shapes()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
If shp.Name Like "SpinButton*" Then
shp.Delete
ElseIf shp.Name Like "Schaltfläche*" Then
shp.Delete
ElseIf shp.Name Like "Kontrollkästchen*" Then
shp.Delete
End If
Next
End Sub