No question here, just a procedure for the archive.

Search criteria: select all arrows select arrows select all lines select lines
select specific objects select specific shapes select specific
alternative to AutoShapeType Property DrawingObjects
msoShapeLeftArrow msoShapeRightArrow

Sub ArrowsOrLinesInActiveSheetSelect()
'
'Selects all Lines (including Arrows) in active sheet
'
On Error Resume Next
ActiveSheet.Lines.Select

'other VBA code here

End Sub


p.s. I know this is a simple procedure, but it took me a few hours to realize that
the solution was just too simple. :)