VBA Code to Delete pictures contained in the selected cells

[ellll]

Hi guys,

I'm trying to create a Macro to delete all the pictures contained in the selected (highlighted) cells. The macro has to be used several times and in different Excel files consequently the cell's references change every time.

I created the below macro but it does not work unless I select every image manually:

For Each Pic In Selection
Selection.Delete
Next Pic
End Sub

Please help me!
Thank you

 

[MickG]

If the picture you want to keep is at the top of the sheet selection (above the rest), Perhaps !!