instead of activeworkbook.worksheets(bla) you could use activesheet
which would take the sheet that has been activated the last as
reference.

and if you want to sort the whole used area you could use usedrange as
range.

If that doesn't help, try to give some more information.

Carlo

On Jan 9, 4:41*pm, Helmut wrote:
How can I make the following work on any worksheet and on whatever the new
range might be "A11:Axxx" - "A11:Jxxx"

Range("A11").Select
* * ActiveWorkbook.Worksheets("JAN").Sort.SortFields.C lear
* * ActiveWorkbook.Worksheets("JAN").Sort.SortFields.A dd
Key:=Range("A11:A68") _
* * * * , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
* *With ActiveWorkbook.Worksheets("JAN").Sort
* * * * .SetRange Range("A10:J68")
* * * * .Header = xlYes
* * * * .MatchCase = False
* * * * .Orientation = xlTopToBottom
* * * * .SortMethod = xlPinYin
* * * * .Apply
* * End With