Sorting quetion

[austenr]

How do you sort column A in Ascending and keep column B with it in the attached?

[lucas]

Columns("A:B").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("D2").Select

[lucas]

The above works in version 2003 austenr. I have no way to test it in 2007.