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.

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.

Hi Peter,
Thanks for the suggestion. But I really want to be able to do this with a
button click.
I have data that I need to be able to sort in a number of different ways,
depending on what we want at the time. I have buttons to sort by date, by
Customer, by Product, and a few others, and I'd like to have a button for the
affore mentioned.
I've tried adding the custom list, but that's only garranteed to work on 1
computer, since we can't predict how many custom lists exist on other
computers, and hence can't predict which number of custom list to call.
Regards - Dave.

"Peter T" wrote:

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.