#DEFINE xlSortOnValues 0
#DEFINE xlAscending 1
#DEFINE xlSortNormal 0

#DEFINE xlYes 1
#DEFINE xlNo 2

lnLastRow = oSheet.UsedRange.Rows.Count
lnLastCol = oSheet.UsedRange.Columns.Count
lnCol2SortOn = 1

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	

>Make it simple.
>If I not use the EXPORT TO command,
>how to sort a column in a Excel File.
>
>Derek