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