Here is my code:

Range("A6", Range("G65536").End(xlUp)).Select
Selection.Sort Key1:=Range("G7"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A6").Select


It works fine on my machine. However, when I e-mail this file to other
users, they get an error and the Selection code is highlighted???
--
Thanks
Shawn