Filtering using a macro

[Competition]

Hi
I've tried finding this answer in here, but have had no luck, I have created a macro to cut and paste large amount of raw data into a spreadsheet. Once that is completed I want to filter the data on very specific criteria. However the catch is that I don't want the filter attached to one specific worksheet. I want it to apply to what ever worksheet is open at the time.

Here is the code:

ActiveWorkbook.Worksheets("Sept 26").AutoFilter.Sort.SortFields.Clear

ActiveWorkbook.Worksheets("Sept 26").AutoFilter.Sort.SortFields.Add _Key:=Range("A3:A2832"), SortOn:=xlSortOnValues, Order:=xlAscending, _DataOption:=xlSortNormal

ActiveWorkbook.Worksheets("Sept 26").AutoFilter.Sort.SortFields.Add _Key:=Range("G3:G2832"), SortOn:=xlSortOnValues, Order:=xlDescending, _DataOption:=xlSortNormal

ActiveWorkbook.Worksheets("Sept 26").AutoFilter.Sort.SortFields.Add _Key:=Range("J3:J2832"), SortOn:=xlSortOnValues, Order:=xlDescending, _DataOption:=xlSortNormal

With ActiveWorkbook.Worksheets("Sept 26").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply

End With

Basically I want to remove the reference to Sept 26... Can anyone help?


Thanks

 

[Jonmo1]

Welcome to the board...

I think you could replace all instances of
ActiveWorkbook.Worksheets("Sept 26")
with
ActiveSheet


Although, personal opinion here...
You're better off specifying the sheet..
Making your code dependant on which sheet is active is just asking for trouble.
You never know when the currently active sheet is NOT what you think it is....

Just opinion...



Woo Hoo, Post #20,000 !!!!

 

[Competition]

Agreed but in this case i need to make an exception ... Thanks for the correction it works perfectly. Thanks for the warning as well, I'll definitely be careful.