The following sequence of events should help you out (tested and working in Excel 2003). This should work for several shapes existing at the same time, without changing any code.
1. Create a Macro that will increment the number in the Shape. The name can be any legal Macro name.
2. Assign the Macro to Exisiting Shapes
Right Click the Shape > Assign Macro > MyOvalIncrement >OK
3. Modify your creation Macro slightly, to assign the macro when you create the Shape. If the macro doesn't exist when you create the shape, but exists later, you may have to close the workbook, for the shape to recognize the Macro name. It is easier to have the macro exist when you create the Shape.
Modifications to your code are in red:
Lewis
Bookmarks