Dim myWorkSheet As Excel.Worksheet = myWorkbook.Worksheets (aSheetName)

myWorkSheet.Activate()

Dim myRange As Excel.Range

myRange = myWorkSheet.Range("A1", "L10")

myRange.Select()

myRange.Sort(Key1:=myRange.Range("D1"), _

Order1:=Excel.XlSortOrder.xlAscending, _

Orientation:=Excel.XlSortOrientation.xlSortColumns)

Dim objExcelRange As Range

Dim LastRwColm As String

LastRwColm = objExcelsht.Cells(dumparrlCnt, tgtcolm + 1).Address(RowAbsolute:=False, ColumnAbsolute:=False)

objExcelRange = objExcelsht.Range(Cell1:="A1", _

Cell2:=LastRwColm)

objExcelRange.Select()

objExcelRange.Sort(Key1:=objExcelRange.Range("V8"), _

Order1:=XlSortOrder.xlAscending, _

Header:=XlYesNoGuess.xlGuess, _

MatchCase:=False, _

Orientation:=XlSortOrientation.xlSortColumns)