Hello,

This was paired down from a macro recording:

With ActiveSheet.Range("S18:T22")
.Sort Key1:=Range("S18"), Order1:=xlAscending, Header:=xlGuess
End With

If you wanted to sort by column T, change that in the second line of the
code.

Hope it helps,
--
Ken Puls
www.officearticles.com

"Rubix" wrote in message
...
Columns would be s & t. Rows 18-22

Rube