It is sorting row 2 - 12 if 12 is the last row with data. It would be 234 if
that was the last row with data. I thought you wanted it to be adaptable for
the amount of date in each column. If not, change to 12.....

--
Don Guillett
SalesAid Software

"Jeff Garrett" wrote in message
...
That's worked Don. The only problem is it's doing too much. It should
only
sort rows 2-12 inclusive, and this is what we last came up with:
lr = Cells(Rows.Count, i).End(xlUp).Row
This does too much. How do you do only sort the rows 2-12?