2 things:

watch the word-wrap and this will work in xl2003 and later.

--


Gary


"cgsteel" wrote in message
...
The code below sorts column "A" but if I wanted to add a level to the sort
that would sort column "B".

How would I do that?

Range("data1").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlNo

Thanks
Carlos