Sorting sheets by calling sub procedures.

Good day,
I am just looking to enhance this procedure when sorting. My setting is at the “Page Break Preview”. I feel like the view is much better, I guess to each their own.
I have sorting procedure stored in my module 3, I have around 6 sorting that will sort different sheets. In some of my codes, I call sometime 3 at a time as my information constantly updates.
I was looking at my sheet after the procedure was running and it was not doing as the code is written. I am just looking to see if this could be improved or and modified to not have the print selection “Snapped on” when I call these procedures.
Sort from Sheet1:

Sub Sort1()
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    With ActiveWorkbook.Worksheets("Pre-Solicitation").Sort
        .SetRange Range("A5:M20")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A5").Select
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

The reason I am adding the Range selection at the end is that I havent found how to deselect the full screen. When I call the Sub Proceedure on 2 different Sorts it will generate the first sheet while doing the full proceedure but then if I go to my sheet2 I will see that it did not run the range selection.

Sheet 2 sub:

Sub Sort2()
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    With ActiveWorkbook.Worksheets("GETS").Sort
        .SetRange Range("A5:F20")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A5").Select
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

Is there a method for the Sheet to do like a unselect all...