'sort by status
Sheets("Activity").Select
Range("A1:H65536").Sort Key1:=Range("A2"), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
'Range("A1").Select
Cells(Rows.Count, 1).End(xlUp).Select
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware
(Excel Add-ins - Free trial download for "Special Sort")



"Jeff W."
wrote in message
I have a work log I am using in Excel, and have a custom feature that
will sort by status which it gets from the first column.
The cursor postion end up at A1 "top of the page"

Below, is what I have right now and I think the "Range("A1").Select"
should be changed but I dont how to make it position on the first cell
of the last item in the column that has contents

' sort by status
Sheets("Activity").Select
Range("A1:H65536").Select
Selection.sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess,
_
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A1").Select
End Sub

Can someone help me change it to do this, please?
Thanks,
Jeff W.