When I use this code on a worksheet that doesn't contain
clip art to delete, I get the error message "This
operation will cause some merged cells to unmerge. Do you
want to continue". How can I use this code to delete
unwanted clip art objects without unmerging any cells?

Set myDocument = Worksheets(1)
myDocument.Shapes.SelectAll
Selection.Delete