Sort macro using CurrentRegion

[x65140]

Attached sample
I have a macro that runs across 3 worksheets sorting column F (high to low).
The EXAMPLE macro is correct and runs fine. The REPORTGENERATOR runs the macro across all 3 worksheets.

I tried to recreate the EXAMPLE macro on my own as SORTLASTCOL but keep "SECTION A" (the first tab name) in the macro instead of CURRENTREGION.

What steps do I take to recreate the EXAMPLE macro?

[AB33]

This code runs on the active sheet. If sheet "Section" happens to be the active sheet (Where the cursor is when you run the code) and then sorts the data by column F. What needs to be done?

Please Login or Register  to view this content.

[x65140]

This is an online class from work....not very clear. I'm attaching a WORKING.XLSM from class and my NEWONE.XLSM attempt.
The SORTLASTCOL only points to the first tab, so when I run the REPORTGENERATOR and it gets to the second tab, it messes up the first tab results.
Don't know how they created their SORTLASTCOL macro. (AND, it doesn't sort the second and third tab data)

[AB33]

SORTLASTCOL is for Worksheets("Section A") ONLY.
The other codes you have do not have specific sheet names. They all work on the activesheet.

[x65140]

Understood. My main question is:
How did they create their SORTLASTCOL to use CURRENTREGION? Every time I try, I get the worksheet name and that is what is messing me up.

[AB33]

I personally do not like the sort code. In fact, I have recently only overcome my phobia on sorting .

I have just adjusted the code to loop through all sheets except the "All section"

Please Login or Register  to view this content.

[AB33]

current region deals with range, not sheet names. Do you mean like this?

Please Login or Register  to view this content.

[x65140]

Yes, only without the 'Section A' in it. Like in their example....
Did they KEY in the code, or did they CLICK buttons and have EXCEL create the code?
I was looking for a way to CLICK to create the code...if that can't be done, I'll deal with what I have.....thanks.

THEIR CODE:---------------------------
Sub SortLastCol()
'
' SortLastCol Macro
'
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Sort Key1:=Range("F:F"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
'
End Sub