VBA - Grouping Shapes & Deleting Them

I already have a macro that will draw up to 36 shapes (combo of ovals and freeforms) all on a range I call "DrawRange". I am trying to add to this to group all the shapes so that a user can move/manipulate the drawing easily. And I would like to also be able to delete this shape, via VBA, in the event of a "re-draw" event initiated by a user.

The code I have currently for the group is similar to delete so we'll just focus on that. Here is what I have:

Please Login or Register  to view this content.

This works... sometimes. However often enough I get an error "Application-Defined or Object Defined Error" listed on the "Not Intersect" line. I'm not sure what I'm being told in that error message nor how to go about fixing it. Any help is greatly appreciated.

And for anyone interested, the delete routine is similar to above except after the Not Intersect line, I use "shp.delete".

Thank you

Why not group the shapes when you create them?

Why would you manually select them?

All you need to group shapes is an array with the names you want to group.

So, in the code that creates the shapes note the name of each shape in array and at the end group them.

All you need to do is incorporate the loop variable i into the name.

Please Login or Register  to view this content.

Norie. Thank you. This was the missing link I needed.

And just for anyone who reads this later. I created another loop to grab any shape with "rebar" in its name. The code is below. Naturally, I'll place it in my drawing routine as recommended above. Thank you again!

Please Login or Register  to view this content.