Delete Jpegs in highlighted cells only

[ExcelRoy]

Hi,

Would there be code to delete all jpegs/images/hyperlinks from highlighted cells only?

Thanks

 

[VoG]

Try this with a copy of your sheet

Sub ctest()
Dim shp As Shape
Selection.Hyperlinks.Delete
For Each shp In ActiveSheet.Shapes
    If Not Intersect(shp.TopLeftCell, Selection) Is Nothing Then shp.Delete
Next shp
End Sub

 

[ExcelRoy]

Perfect Thanks VoG