I am pleased to say your solution was successful.

I will need to tweak it a bit though.

Thank you
Gotroots


"Dave Peterson" wrote:

I'd use the old xl2003 syntax (still supported in xl2007):

dim wkbk as workbook
dim wks as worksheet

set wkbk = Workbooks.Open(Filename:="Z:\Excel docs\Uses\Uses_A.xlsm")
set wks = wkbk.worksheets("A")

with wks
with .range("B11:z7800")
.sort key1:=.columns(1), order1:=xlAscending, _
Header:=xlYes, _
OrderCustom:=1, _
MatchCase:=False, _
Orientation:=xlTopToBottom
end with
end with

=============
I guessed that your data had headers in row 11.

I see by your code that you're not including column A in the sort range.

If you meant that, then ignore this. But if you wanted to include column A and
sort by column B, you could use:

with wks
with .range("a11:z7800")
.sort key1:=.columns(2), order1:=xlAscending, _
Header:=xlYes, _
OrderCustom:=1, _
MatchCase:=False, _
Orientation:=xlTopToBottom
end with
end with

Gotroots wrote:

I am puzzled why the following code stops when it reaches
Range("B11:Z7800").Select

Workbooks.Open Filename:="Z:\Excel docs\Uses\Uses_A.xlsm"
Sheets("A").Select
Range("B11:Z7800").Select
ActiveWorkbook.Worksheets("A").Sort.SortFields.Cle ar
ActiveWorkbook.Worksheets("A").Sort.SortFields.Add
Key:=Range("B11:B7800" _
), SortOn:=xlSortOnValues, Order:=xlAscending,
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("A").Sort
.SetRange Range("B11:Z7800")

Anyone see something not quite right with the code.

Thank you for your time.

--

Dave Peterson
.