column

[Aze]

hi,
wrote code in VB.NET to sort selected range of data in excel. Data is sorted
but the problem is sorted column values remove i.e in the code below i sort
"rng.Columns(1)" data sorted perfectly, but all the column become empty. i
dont whats the problem in coding or do i miss something?

Dim EXL As New Excel.Application()
Dim WSheet As New Excel.Worksheet()
WSheet = EXL.Workbooks.Open("c:\test.xls").Worksheets.Item(1)

Dim R As Excel.Range
R = WSheet.UsedRange
Dim R1 As Excel.Range
R1 = WSheet.UsedRange
Dim TotRowsCols() As String
Dim TotNumRow() As String
Dim WSSize As String
WSSize = R1.Cells.Address()
TotRowsCols = WSSize.Split(":")
TotNumRow = TotRowsCols(1).Split("$")

Dim rng As Excel.Range = EXL.Range("a2:AK" & TotNumRow(2))
EXL.Selection.sort( _
Key1:=rng.Columns(1), Order1:=Excel.XlSortOrder.xlAscending, _
Orientation:=Excel.XlSortOrientation.xlSortColumns, _
Header:=Excel.XlYesNoGuess.xlGuess, _
Orientation:=Excel.XlSortOrientation.xlSortColumns)
Try
'Saving .xls file with Test.xls name
WSheet.SaveAs("C:\TEST1.XLS")
Catch
End Try
EXL.Workbooks.Close()