Sorting sheets by calling sub procedures.

[Excelnoub]

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:

Please Login or Register  to view this content.

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:

Please Login or Register  to view this content.

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

[Excelnoub]

I also have this in a userfrom:

Please Login or Register  to view this content.

[Excelnoub]

This is what I have to insert in my Userform everytime but was wondering if there would be an easier method

Please Login or Register  to view this content.

So that my Code would look like this at the end:

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Application.EnableEvents = False

'..........Other proceedures

Call Sort1
Call Sort2
Call Sort5
Unload Me

Sheets("Pre-Solicitation").Select
Range("A5").Select
Sheets("GETS").Select
Range("A5").Select
Sheets("Pre-Solicitation").Select

Application.ScreenUpdating = True
Application.EnableEvents = True

End Sub

But I don't get it cause I am doing the same thing in my Sub Sort...

[Excelnoub]

I guess for a better understanding of what it is doing:

You will see that when you Click on Sort 1 it will do exacly what it is supposed to do but when you click and Sort 1 and 2 or Sort all it will Select all information on sheet from Sheet2 and 3.

I need to remove the selection.

Sort.xlsm

[Excelnoub]

Found a shorter code for my Subs but when I call them Only the first sub is generated:


Module1

Please Login or Register  to view this content.

Sheet1:

Please Login or Register  to view this content.

[Excelnoub]

GOT IT

Module:

Please Login or Register  to view this content.

[Norie]

Your Withs aren't really doing anything.

Try sprinkling some dot qualifiers, '.', over the code.

Please Login or Register  to view this content.

[Excelnoub]

Once again... lol

You have better my code.

Thank you Norie