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
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