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


       IF ActiveSheet.Shapes.Range (Array("Rounded Rectangle 1")).Select
           Selection.Delete
  'Now if this Shape is not present, I would like it to locate the only available shape name on the sheet and delete it
           Elseif
           ActiveSheet.Shapes.Range (Array("Rounded Rectangle 2")).Select
           Selection.Delete
  'And so on down the list until it locates the shape on the sheet, selects then, deletes the shape
        EndIf
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....