Sort question (of sorts)

[Patrick C. Simonds]

The code below runs a sort on the Relief Board worksheet (the worksheet is
not active) the problem is that when you do go to that worksheet the range
A6:J3000 is still selected. Is there any way to clear the selection and have
the cell C6 be active?


ActiveWorkbook.Worksheets("Relief Board").Sort.SortFields.Add
Key:=Range( _
"A7:A3000"), SortOn:=xlSortOnValues, Order:=xlAscending,
DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Relief Board").Sort
.SetRange Range("A6:J3000")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

 

[Gary''s Student]

ActiveWorkbook.Worksheets("Relief Board").Activate
Range("C6").Select

 

[Patrick C. Simonds]

Thanks, but I do not want the worksheet to become active.

 

[Dave Peterson]

This uses xl2003 .Sort syntax, but will work in xl2007:

With ActiveWorkbook.Worksheets("Relief Board")
With .Range("a7:j3000")
.Sort key1:=.Columns(1), order1:=xlAscending, _
dataoption1:=xlSortNormal, _
Header:=xlYes, MatchCase:=False, Orientation:=xlTopToBottom
End With
End With

 

[Patrick C. Simonds]

Sorry but it errors out on:

Worksheets("Relief Board").Range("C6").Select