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 Tools>Options>Custom
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" <(E-Mail Removed)> wrote in message
news:EBFBF66F-6E6C-47D4-BF08-(E-Mail Removed)...
> 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
> Tools>Options>Custom
> 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" <(E-Mail Removed)> wrote in message
> news:EBFBF66F-6E6C-47D4-BF08-(E-Mail Removed)...
> > 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
> > Tools>Options>Custom
> > 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.
>
>
>