One way, without code

Put your custom list in cells somewhere and name as (say) myList
For testing, your items in col-A and assuming the first item to sort is in
A2
=MATCH(A2,myList,0)
and copy down

Sort against the match'd column

Regards,
Peter T


"Dave" wrote in message
...
Hi,
XL2003
Is it possible to sort by a custom list, and have that custom list
included
in the code, rather than putting the custom list in the
ToolsOptionsCustom
Lists?
Something like the following (which generates an error):

Range(Cells(A, 1), Cells(500, 16)).Sort _
Key1:=Range("DueHeader"), Order1:=xlAscending, _
Header:=xlYes, OrderCustom:=("SMT","PCB","FA")

Regards - Dave.