Nested Code to remove shapes (buttons)

I am reusing the same "Template" to replicate various forms.

I have written a routine that clears the worksheet, and prepares it for the next "template".

Most of the buttons used are standardized macros and remain on the "cleared template" just fine however, I needed to create a button on each form that would "reload the current form" of which, has it's own "Reload Form" button copied over from the template.

For starters the shapes are named "Rounded Rectangle 1", "Rounded Rectangle 2", "Rounded Rectangle 3", etc. as I have not figured a method of changing their names (which really isn't important) what is important I need to nest a series of these in my standard "ClearForm" macro which will skip to the next "Shape" if the previous is not located on the current worksheet. IF / Elseif / Endif

Please Login or Register  to view this content.

Does that make sense? It is getting late, in other words I don't want to have to create a new macro for every "Template" I need cleared so the worksheet is ready for the next template or, if necessary to reload the existing sheet. Which in fact is what the "Shape" does, and I need cleared when the time is right, and the work has been completed on the sheet.

If anyone happens to know how to "Label" these shapes please let me know however, as stated that is not what is important at this time

Thanks....