Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1:F1")) Is Nothing Then
If [G1] = True Then
Range("A2:F11").Sort Key1:=Range(Target.Address), Order1:=xlDescending
[G1] = False
Else
Range("A2:F11").Sort Key1:=Range(Target.Address), Order1:=xlAscending
[G1] = True
End If
End If
End Sub