Sub Tester9()
Selection.Sort Key1:=Selection.Resize(1, 1).Offset(2, 0), _
Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlLeftToRight

End Sub

--
Regards,
Tom Ogilvy


"Dee Dee" wrote in message
...
Hi to all!
Im trying to create a macro to sort a selected range. I have used the
recorder to get the following....

Selection.SORT Key1:=Range("C148"), Order1:=xlAscending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight


Im sorting left to right and want to use the 3rd row of the range as the
key. How do I indicate this?
Thanks
DD