I found the below Macro for selecting all lines on my page and it works great. Can someone tell me what I need to add to it to move all the selected objects to the front, then de-select everything? Thanks!
Sub Macro1()
Dim aShape As Shape
Range("a1").Select
For Each aShape In...