Using VBA Excel, I am having a hard time deleting ONLY specific shapes (they are all left Arrows and are situated in range E10:E20.

I am trying to delete JUST these msoshapeLeftArrow that are located in that range of the worksheet without deleting any other shapes like buttons and drop down boxex etc....

I was trying:

Sub Pointersdelete()

Dim Sh As Shape
Dim Ws As Worksheet

Set Ws = ActiveSheet


With Ws
For Each Sh In .Shapes
If Sh.Type = msoShapeLeftArrow Then Sh.Delete
Next Sh
End With
       
    

End Sub
This is not working because the above code deletes EVERY shape in my worksheet.

Thanks