Shapes and Deleting Shapes

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.

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.

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

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