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
Bookmarks