>WITH oSheet.Sort > .SortFields.Clear() > .SortFields.Add(oSheet.Range(oSheet.Cells(1,lnCol2SortOn),oSheet.Cells(lnLastRow,lnCol2SortOn)), ; > xlSortOnValues, xlAscending, xlNo, xlSortNormal) > .SetRange(oSheet.Range("A1", oSheet.Cells.SpecialCells(xlLastCell))) > .Header = xlYes > .Apply() >ENDWITH >>