How to delete MSOSHAPELEFTARROW only

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