How to delete objects in specific range ?

[sthanawa]

Hi All ,

Please suggest as below problem.

I have one specific range A1:K10.
In this specific range. I have some shape object and some picture.

Outer this specific range , I also have other shape and picture too.

How can I delete all objects in this specific range ?
but do not delete other object out of said specific range.

 

[northwolves]

Sub delshape()
Dim sh As Shape, r As Range
For Each sh In ActiveSheet.Shapes
Set r = Range(sh.TopLeftCell.Address, sh.BottomRightCell.Address)
Set r = Application.Intersect(r, [a1:k10])
If Not r Is Nothing Then sh.Delete
Next
End Sub

Regards
Northwolves