This code sorts the selected range in ascending order.
VBA Code:
Sub SortRange()
Selection.Sort Key1:=Selection, Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub
This code sorts the selected range in ascending order.
VBA Code:
Sub SortRange()
Selection.Sort Key1:=Selection, Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub