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