Select shapes?

[Dr.Ile]

Hello,

How should I on the most effective way select every second shape from 100 shapes (ie. lines). I can't find out the right code.

Thank you

[raypayette]

Sub test()
For i = 1 To 5 Step 2
a = ActiveSheet.Shapes(i).Name
MsgBox a
Next
End Sub