hold on....I finally got it to work....hallelujah! ;-) Thanks!
--
carusso


"Jim Cone" wrote:

Two separate sorts, different key column and custom order in each...
'--
Sub MixEmUp()
Selection.Sort key1:=Range("B1"), ordercustom:=6, header:=xlNo, _
MatchCase:=False, Orientation:=xlTopToBottom
Selection.Sort key1:=Range("A1"), ordercustom:=7, header:=xlNo, _
MatchCase:=False, Orientation:=xlTopToBottom
End Sub
'--
The last sort determines the overall order of the data.
Jim Cone
Portland, Oregon USA



"carusso"
wrote in message
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