Creating a "Sort" hyperlink in code

[jerH]

I have built a utility that reads in a .csv file, does a bunch of calculations, and spits out a formatted report. Within the report there are multiple "sections". The user has now asked if I can make the column headings "clickable" in order to sort a section in either ascending or descending order (toggle back and forth) by just clicking on the column heading. Any pointers on how to achieve this? I can provide as much detail as necessary

 

[tonyyy]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim topRow As Long, bottomRow As Long
Dim Rng As Range
Static sortOrdur As Long

topRow = Target.Row
bottomRow = Cells(Target.Row + 1, 1).End(xlDown).Row
Set Rng = ActiveSheet.Rows(topRow & ":" & bottomRow)

sortOrdur = IIf(sortOrdur = xlAscending, xlDescending, xlAscending)
Rng.Sort Key1:=Target, order1:=sortOrdur, Header:=xlYes
Cancel = True
End Sub