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