Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Custom Sort Order

Sub CustomSort()     Application.AddCustomList ListArray:=Range("I1:I5")     nIndex = Application.GetCustomListNum(Range("I1:I5").Value)     Range("A2:C16").Sort Key1:=Range("B2"), Order1:=xlAscending, _                             Header:=xlNo, Orientation:=xlSortColumns, _                             OrderCustom:=nIndex + 1     Application.DeleteCustomList nIndex End Sub