VBA - selection sort

Post date: May 17, 2011 9:18:14 PM

Range("A:D").Select

Selection.Sort _

Key1:=Range("a1"), Order1:=xlAscending, _

Key2:=Range("b1"), Order2:=xlAscending, _

Key3:=Range("c1"), Order3:=xlAscending, _

Header:=xlYes, OrderCustom:=1, MatchCase:=False, _

Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal

Range("a2").Select