You just left out the second sort key. Try:

[VBA]Range(Cells(2, 1), Cells(8, 8)).Sort Key1:=Cells(2, 1), Key2:=Cells(2, 2)[/VBA]

Mark