Move selection to front, then de-select commands added to current Macro

[Bret1]

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 ActiveSheet.Shapes
        If aShape.Connector Then _
            aShape.Select False
        Next aShape
    End Sub