Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Adding Clickable Sorting to Worksheet Lists

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)      Dim mnDirection As Integer      Dim mnColumn As Integer      If Target.Column < 5 And Target.Row = 1 Then          If Target.Column <> mnColumn Then              mnColumn = Target.Column              mnDirection = xlAscending          Else              If mnDirection = xlAscending Then                  mnDirection = xlDescending              Else                  mnDirection = xlAscending              End If          End If          Dim rg As Range          Set rg = Me.Cells(1, 1).CurrentRegion          rg.Sort Key1:=rg.Cells(1, mnColumn), _                   Order1:=mnDirection, _                   Header:=xlYes               Set rg = Nothing      End If  End Sub