Deleting all shapes (except 2 rectangles that have macros assigned)

[adrian.groves]

I have written a macro to draw many on shapes on a sheet, plus another to delete the shapes.

I have then assigned the macros to two button on the worksheet but unfortunately my macro to delete the shapes also deletes the macro buttons.

Does anybody have any suggestions?

 

[FormR]

Hi, maybe you can test if the shape has a macro assigned and only delete if it doesn't - something like..

Sub delete_shapes()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
    If shp.OnAction = "" Then shp.Delete
Next shp
End Sub

 

[adrian.groves]

Brilliant - thank you.

That worked perfectly.

I had been trying to Select All and then deselect the 2 with macro's so this is great.

Thanks again