On 5 Mar 2007 21:26:11 -0800, "Greg Glynn"
wrote:

You can add the next column as a secondary search

Sub SortRange1()
Worksheets("Sheet1").Range("A1:C20").Sort _
Key1:=Worksheets("Sheet1").Range("A1"), _
Key2:=Worksheets("Sheet1").Range("B1")
End Sub

You'll need to put your numbers in the second column.


Thanks Greg, it worked FANTASTICALLY!

Cheers - Kirk