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?