I have been using the following code to delete a shape for the the past
several years.

Option Explicit

Sub ClearPicture()

'DELETE IMAGE MKTPKG

Dim X As Shape

On Error Resume Next

Set X = Sheets("MktPkg").Shapes(1)

If Err = 0 Then

X.Delete

End If

End Sub



In fact, it still works on one version of my software, but on the other it
mysteriously stopped working. The shape gets pasted to the worksheet just
fine, but now, for some reason, it won't delete. I've tried cleaning my code
with Rob Bovey's code cleaner, but it still doesn't execute. When I remove
the On Error Resume Next, the message says Application-defined or
application-defined error.



What happened? Even for all the changes I've been making to the program, I
never touched this.



Please help if you can. Thank you.



Jim Kobzeff