expression.Sort(Key1, Order1, Key2, Type, Order2, Key3, Order3, Header, OrderCustom, MatchCase, Orientation, SortMethod, DataOption1, DataOption2, DataOption3)>
>lnLastRow = oExcel.activesheet.UsedRange.Rows.Count >oExcel.activesheet.Range("A1:G"+TRIM(PADR(lnLastRow,11))).select >Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom >