Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column > 1 Then Exit Sub
Cancel = True
[A:E].Sort [A1], Header:=xlYes
End Sub
Private Sub CommandButton1_Click()
[A:E].Sort [A1], Header:=xlYes
End Sub
Sub Tri()
[A:E].Sort [A1], Header:=xlYes
End Sub