Run time error 1004 - display message box instead

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

Please Login or Register  to view this content.

Exchange ToolV1.xlsm