Delete Only Selected Picture.

I have a program to delete all pictures but I need a macro to delete only the picture I select.

Got it. "Sub REMOVE1PICTURE()
Dim s As String
s = ActiveCell.Address
Selection.Cut
End Sub"