Can't find generic name for selected Shape

Hi folks,

I'm trying to develop a simple Kanban/Scrum tool in Excel. I have set up row/column settings and am putting in "sticky notes" in each cell. Using the snap to grid, i can achieve a drag&drop function from column to column.

My issue is that each "sticky note" has a Text Description field, an Assigned To drop-down list, a Estimated Days spin control, and Tested checkbox. I have grouped all these items with an Image activeX background, forming a group.

My problem is that when I try to record a macro that will move the sticky note to the next column, it records this string ActiveSheet.Shapes("Group 111").Select

Is there a property that I can use to substitute for the "Group111" name, such as ActiveSheet.Shapes(Current).Select or a similar construct. I need the macro to be generic in the naming of the currently selected Group as I will be adding dozens of Sticky Notes in a given project.

I can't find this solution anywhere on the web. Help me Obiwan, you;re my last hope!

Thanks.

After researching this in more detail, I need to restate my needs as follows.

I have a worksheet in which I have 1 initial sticky note to begin. This sticky note is a group of Form and Active X controls, grouped as a single object. I have named the first sticky note as StickyNote1.

I want to create a macro to assign to a button that will always copy StickNote1 to clipboard, paste the new sticky note and then rename it to the next sequential number, e.g. StickyNote2, StickyNote3, etc.

I am attaching the worksheet for review.