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

ActiveWorkbook.Worksheets("Relief Board").Activate
Range("C6").Select
--
Gary''s Student - gsnu2007k

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



"Gary''s Student" wrote in message
...
ActiveWorkbook.Worksheets("Relief Board").Activate
Range("C6").Select
--
Gary''s Student - gsnu2007k

Hello Patrick,

Use the statement *Application.CutCopMode = False* to deselect the
data. Then add *Range("C6").Select*.

====================================
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
Application.CutCopyMode = False
Worksheets("Relief Board").Range("C6").Select
====================================


--
Leith Ross

Sincerely,
Leith Ross

'The Code Cage' (http://www.thecodecage.com/)
------------------------------------------------------------------------
Leith Ross's Profile: http://www.thecodecage.com/forumz/member.php?userid=75
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=51540

Sorry but it errors out on:

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


"Leith Ross" wrote in message
...

Hello Patrick,

Use the statement *Application.CutCopMode = False* to deselect the
data. Then add *Range("C6").Select*.

====================================
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
Application.CutCopyMode = False
Worksheets("Relief Board").Range("C6").Select
====================================


--
Leith Ross

Sincerely,
Leith Ross

'The Code Cage' (http://www.thecodecage.com/)
------------------------------------------------------------------------
Leith Ross's Profile:
http://www.thecodecage.com/forumz/member.php?userid=75
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=51540

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" wrote:

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

--

Dave Peterson