|Since it sounds like you might want to follow Humar's instructions on a regular basis, I took his suggested steps and wrote a macro to perform them.|
The code will ask the user to input the Column Header that (s)he want to sort on and then perform the sort.
If the user enters a string that the code can't find in A1:U1, it will give the user the opportunity to try again.
The code is based on the same ranges that Humar used in his example. Adjust as required.
Dim myKey, myTry As String
'Get column header from user
myKey = Application.InputBox("Please Enter Column Header", Default:="Name")
'End Sub if user Cancels
If myKey = "False" Then Exit Sub
'Find Header String in Header Row
Set c = .Find(myKey, LookIn:=xlValues, lookat:=xlWhole)
'Header is found, use it as the sort key
If Not c Is Nothing Then
Key1:=Range(c.Address), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
'If not, ask user if (s)he wants to try again
myTry = MsgBox(myKey & " Not Found." & _
vbCrLf & vbCrLf & _
"Care To Try Again?", _
'If yes, start over. If not, fall through to End Sub
If myTry = vbYes Then GoTo getColumnHeader