How to delete MSOSHAPELEFTARROW only

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

Hi mhni

Try:

Sub Pointersdelete()

Dim Sh As Shape
Dim Ws As Worksheet

Set Ws = ActiveSheet

With Ws
    For Each Sh In .Shapes
        If Sh.Type = msoAutoShape And Sh.AutoShapeType = msoShapeLeftArrow Then _
            If Not Intersect(Range(Sh.TopLeftCell, Sh.BottomRightCell), Range("E10:E20")) Is Nothing Then _
                Sh.Delete
    Next Sh
End With
       
End Sub

Works like a charm....many thanks!