EXCEL:删除所有工作表中特定名称的图片

Dim x
Dim sht As Worksheet
For Each sht In Worksheets
If sht.Name <> "Sheet1" Then

sht.Select
sht.Activate
For Each x In ActiveSheet.DrawingObjects
If x.Name = "Picture 1" Then x.Delete
Next
End If
Next