How to use Header "Text" as Sort Key

[Bassman62]

How can I use the text within a header cell as a sort key?
For example,
ActiveSheet.Range("A1").CurrentRegion _
.Sort Key1:="DATE", Order1:=xlDescending, _
Key2:="LOCATION", Order2:=xlAsending, Header:=xlYes

Thank you.

 

[Gary Keramidas]

this worked for me, if that's what you're asking:

Sub test()
Dim key2 As String
key2 = Range("b1").Value
With Worksheets("Sheet1").Range("A1:b10").CurrentRegion
.Sort Key1:="DATE", Order1:=xlDescending, _
key2:=key2, Order2:=xlAscending, Header:=xlYes
End With
End Sub

 

[Bassman62]

Thank you.
I see that it works better to use the "With" statement.

Dave