Sort Data When a Header Is Clicked

[littleiitin]

Try this:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
     Dim HeaderRow As Long
     HeaderRow = Target.Row
     Select Case Target.Row
        Case HeaderRow
            If IsEmpty(Target.Value) Then Exit Sub
            Static MySortType As Integer
            If MySortType = 0 Then
                MySortType = xlAscending
            ElseIf MySortType = xlAscending Then
                MySortType = xlDescending
            ElseIf MySortType = xlDescending Then
                MySortType = xlAscending
            End If
            'Target.CurrentRegion.Offset(1).Sort key1:=Target, order1:=MySortType, Header:=xlYes
            Target.CurrentRegion.Offset(0).Sort key1:=Target, order1:=MySortType, Header:=xlYes
    End Select

End Sub

https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA

[Rasm]

Littleiitin
It behave similar - you have to leave the cell and then put focus on it again. so lets say my header row is row 4 - If I click cell B4 - the data is sorted ascending from row 5 and down - now - to sort descending - I have to click some other cell then click B4 again - I am tryinmg to avoid having to click the other cell.