Morning,
I'm an amatuer in VBA, however I'm building a tool to help a colleague. All works fine unless the range which is copuied to a new sheet doesn't contain the original shapes then I get a runtime error as there is nothing to delete.
As it's at the end - if there is nothing to delete I'd rather a message box appeared stating Complete - no shape to remove rather than runtime screen.
Can anybody help?
the error will appear toward end of the macro StepII
ActiveSheet.Shapes.Range(Array("Rounded Rectangle 1")).Select
Selection.Delete
ActiveSheet.Shapes.Range(Array("Rounded Rectangle 2")).Select
Selection.Delete
Exchange ToolV1.xlsm
Bookmarks