lcol = ActiveSheet.UsedRange.Column
ActiveSheet.UsedRange.Columns.Count
lrow = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count
Range(Cells(1, 1), Cells(lrow, lcol)).Sort Key1:=Range("G1"), _
Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
For x = 1 To lrow
Cells(x, 7).Value = x
Next x

Try that out. - Piku

--
Message posted from http://www.ExcelForum.com