Hi,

I am trying to write a macro to do a custom sort. I have writen part of
it which enters a custom list then it moves to the data I want to sort
and it is supposed to sort it in the order of the custom list. My
problem is I can't get the macro to choose my custom list which is at
the bottom of the custom lists. Below is the code.

Sheets("Customers").Select
Range("A3").Select
Selection.Sort Key1:=Range("A3"), Order1:=xlAscending,
Header:=xlGuess, _
OrderCustom:=12, MatchCase:=False, Orientation:=xlTopToBottom

Thanks.

nb. Using Excel 97

James


--
fugfug
------------------------------------------------------------------------
fugfug's Profile: http://www.excelforum.com/member.php...o&userid=24950
View this thread: http://www.excelforum.com/showthread...hreadid=386709

If you are creating the customlist on the fly, it will get added to the end.

Sheets("Customers").Select
Range("A3").Select
Selection.Sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=Application.CustomListCount, MatchCase:=False,
Orientation:=xlTopToBottom

I advise deleting it a=fterwards as well

Application.DeleteCustomList Application.CustomListCount

--
HTH

Bob Phillips

"fugfug" wrote in
message ...

Hi,

I am trying to write a macro to do a custom sort. I have writen part of
it which enters a custom list then it moves to the data I want to sort
and it is supposed to sort it in the order of the custom list. My
problem is I can't get the macro to choose my custom list which is at
the bottom of the custom lists. Below is the code.

Sheets("Customers").Select
Range("A3").Select
Selection.Sort Key1:=Range("A3"), Order1:=xlAscending,
Header:=xlGuess, _
OrderCustom:=12, MatchCase:=False, Orientation:=xlTopToBottom

Thanks.

nb. Using Excel 97

James


--
fugfug
------------------------------------------------------------------------
fugfug's Profile:
http://www.excelforum.com/member.php...o&userid=24950
View this thread: http://www.excelforum.com/showthread...hreadid=386709

Thanks Bob. I see the bit you have changed in the code

OrderCustom:=Application.CustomListCount

In my code I had this = to 12 which I assume means twelth on the list
Does the customlistcount just count how many items in the custom lis
or does it do something different?

Thanks.

Jame

--
fugfu
-----------------------------------------------------------------------
fugfug's Profile: http://www.excelforum.com/member.php...fo&userid=2495
View this thread: http://www.excelforum.com/showthread.php?threadid=38670

I've just tried the new code, it does not quite work. It always choose
the custom list one from the bottom of the list........

Jame

--
fugfu
-----------------------------------------------------------------------
fugfug's Profile: http://www.excelforum.com/member.php...fo&userid=2495
View this thread: http://www.excelforum.com/showthread.php?threadid=38670