Activesheet.Range.("A1:B1000").Sort _
Key1:=Worksheets("Sheetname").Columns("A:B"), _
Header:=xlGuess, Order1:=xlAscending

Activesheet.Range.("C1:D1000").Sort _
Key1:=Worksheets("Sheetname").Columns("C:D"), _
Header:=xlGuess, Order1:=xlAscending

Jim


" wrote:

Hey all,

Hope someone out there can help me with this problem I am having. We
have a phone list done in excel and wish to sort the names
alphabetically but do not wish for the layout to change
It looks like this:

A B C D
Alice 1111 John 1115
Tom 1112 Janet 1116
Kenny 1113

I wish to sort all 4 columns based on the persons name but still have
the 2 column setup.
So sorting would be done based on columns A and C.

Anyone know if this is possible?

Thanks