You cannot use a Shape object to iterate through a Range object.
Your method to duplicate the shapes results in duplicate names (I was surprised this was possible). The best practice would be to give them unique names when you create the duplicates.
Also note that this declaration
creates oShape1 as a Variant because there is no data type, and oshape2 as a Shape. You must give a data type for every variable.
The first Sub creates two duplicates. The second Sub deletes the duplicates, leaving the original.
Bookmarks