I'm sorting an entire worksheet based on 3 columns. The problem I'm running into is that the 3rd column contains alphanumeric data, so data with numbers is being placed at the end of the sort. Here's the code I'm using so far, but I need the 3rd column (E) to sort alphanumerically. Any help would be appreciated.
Code
Sub Macro1()
'
' Macro1 Macro
'
'
ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Add2 Key:=Range( _
"C2:C13335"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Add2 Key:=Range( _
"D2:D13335"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Add2 Key:=Range( _
"E2:E13335"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Sheet2").Sort
.SetRange Range("A1:Q13335")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin