I want to use the following code to sort a worksheet (Employee_List), but I
do not want the sorted worksheet to be active:

Range("A3:D300").Select

Selection.Sort Key1:=Range("D4"), Order1:=xlAscending, Key2:=Range("A4")
_
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=2, MatchCase:=
_
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal,
DataOption2 _
:=xlSortNormal
Range("A3").Select