Delete Picture

[sitelbanat]

I need help deleting specific pictures on excel sheet. I am working with this code, but it deletes all of the pictures on the page. I need help modifying the code, so it would only look for specific pictures.

Sub DeletePictures()

For Each Shape In ActiveSheet.Shapes
If Shape.Type = msoPicture Then
Shape.Delete
End If
Next Shape
End Sub

The pictures are

Picture 17
Picture 18
Picture 20
Picture 21

 

[sitelbanat]

Everytime the picture paste the name changes, How can I provent that

 

[Greg Truby]

Just stumbled across this during a search. How are you pasting the shapes into the WS? By hand or via VBA?