Sorting rows

[VbaHell]

Hello all

I have another question please

This code complete a sort on column "B" starting with row 13 into Ascending order

What I would like is to sort two columns in ascending order at the same time

Column "B" first, then followed by Column "A"

[Set oneRange = Range("A13:K110")
Set aCell = Range("B13")
oneRange.Sort Key1:=aCell, Order1:=xlAscending, Header:=xlYes]

 

[shg]

  With Range("A13:K110")
    .Sort Key1:=.Range("A1"), Key2:=.Range("B1"), Header:=xlYes
  End With

 

[VbaHell]

Thank you shg, this is far better than what I had

 

[shg]

You're welcome.