Sub a_b()
'
' a_b Macro
' Macro recorded 12/11/2009 by USER
'
'
Application.GoTo Reference:="sheet"
Selection.Sort Key1:=Range("E7"), Order1:=xlAscending, Key2:=Range("F7") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
Range("A1").Select
End Sub