Accessing Data in Excel: A Macro Writer’s Perspective - Automated Data Analysis Using Excel - page 29

If ColKey2 <> "" Then Key2Range$ = Trim(ColKey2) & "1"
Else
'A Number was passed as the Col #
Key1Range$ = Chr(64 + ColKey1) & "1"
If ColKey2 <> "" Then Key2Range$ = Chr(64 + ColKey2) & "1"
End If
Case Else
'Worksheet Contains a Header Row
Hdr = xlGuess
If IsNumeric(ColKey1) = False Then
'A Letter was passed as the Col #
Key1Range$ = Trim(ColKey1) & Trim(Str(Header))
If ColKey2 <> "" Then Key2Range$ = Trim(ColKey2)
& Trim(Str(Header))
Else
'A Number was passed as the Col #
Key1Range$ = Chr(64 + ColKey1) & Trim(Str(Header))
If ColKey2 <> "" Then Key2Range$ = Chr(64 + ColKey2)
& Trim(Str(Header))
End If
End Select
'Set Ascending/Descending Order for Keys
If Key1SortAscending = True Then
Key1Dir$ = xlAscending
Else
Key1Dir$ = xlDescending
End If
If Key2SortAscending = True Then
Key2Dir$ = xlAscending
Else
Key2Dir$ = xlDescending
End If
Select Case ColKey2
Case "" 'Only a single key utilized for sorting
Selection.Sort Key1:=Range(Key1Range$), Order1:=Key1Dir$,
Header:=Hdr%, _
OrderCustom:=1, MatchCase:=False,
Orientation:=xlTopToBottom
Case Else '2 Keys utilized for sorting
Selection.Sort Key1:=Range(Key1Range$), Order1:=Key1Dir$,
Key2:=Range(Key2Range$) _
, Order2:=Key2Dir, Header:=Hdr%, OrderCustom:=1, MatchCase:= _