Hi,
I don't understand the following coding,
is there any document (msdn Language Reference ) explain the usage of Sort.SortFields.Add function?

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	

Thanks,
Derek