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