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