OK, I thought I could figure this out...but not. I really don't know VBA,
just do a lot of copying and pasting and modifying. So can you please let me
know how to code 2 separate sorts.
Thanks!
--
carusso


"Jim Cone" wrote:

Only one custom sort order is recognized per sort.
Run two separate sorts (using all data columns) - sort Column B then sort Column A.
--
Jim Cone
Portland, Oregon USA



"carusso"

wrote in message
Hi all, I am trying to sort data by Column A first, and then Column B. Both
columns are custom lists. I tried this code but it will only read my custom
sort for Column A. Column B is sorted alphabetically ascending, not sorted
by my custom list. Any ideas? (the header will be "yes" later...that's why
it's there...)

Private Sub Workbook_Open()
Worksheets("Sheet1").Select
Cells.Select
Selection.Sort Key1:=Range("A1"), OrderCustom:=7, header:=xlNo, _
Key2:=Range("B1"), OrderCustom:=6, header:=xlNo
Sheet1.Activate
Range("A1").Select
Range("A1").Activate
End Sub

Thanks!
Cheryl
--
carusso