Deleting Images within a range in Excel

I couldn’t find a way to delete images within a range of selected cells in Excel’s interface so put together the following code and set it to run with Ctrl+Shift+I.
Sub delimg()
Dim sh As Shape
With Excel.Application.ActiveSheet
For Each sh In .Shapes
On Error Resume Next
If Not Application.Intersect(sh.TopLeftCell, Selection) Is Nothing Then
sh.Delete
End If
Next sh
End With
End Sub

Note: If you need to delete all images and objects you can use F5 select “Special” and click “Objects” and that will do the trick too.