Find column location by header and then sort rows below it be ascending order

[Boo123]

I am trying to write a function where vba will find a column say "abc" and then sort the rows below it using the values in the selected column in ascending order. I am so far stuck on the first part, but here is what I have:

Sub SelectSort()

Dim rng1 As Range
Set rng1 = Range(Range("A1:Z1").Find("abc"))
MsgBox rng1

End Sub