Shapes and Deleting Shapes

[rob_h]

I have a rather complex workbook that was given to me, and the VBA coding is way over my head. The code shown below is called on when a button is clicked on the worksheet to clear all calculations and their related shapes. I have added a couple more rectangle shapes and assigned my own macros to them. When this routine runs, it deletes the shapes I've added along with the ones it is supposed to.

I need to modify this routine so that the shapes I've added can be passed over the delete action. Had a couple of ideas that failed to work, but it's probably simpler that I think. The Shape Type = is probably one way of doing this but shapes and VBA are all new to me.

Some assistance would be greatly appreciated.

Please Login or Register  to view this content.

[rob_h]

I forgot to mention that there are other rectangle shapes on the sheet that aren't deleted when the ShapesDelete sub is run, somehow these have been protected or otherwise excluded.

[AlphaFrog]

This will exclude some shapes by their name.
Edit the shape names to suit

Please Login or Register  to view this content.

[rob_h]

Thanks Alpha, added the MyShape to the select case statement and it works great!

[sktneer]

Or if you want to exclude the shapes which have macros assigned to them, you may try something like this...

Please Login or Register  to view this content.

[rob_h]

OK, I'll add that one to my notes as well.

[AlphaFrog]

Thanks Alpha, added the MyShape to the select case statement and it works great!

You're welcome. Good catch on my error.