title: sort ascending/descending vba excel
body: <p>I want to sort a column (it's a flagcolumn with Y/N). It should Toggle between ascending / descending on every click.</p>
  
  <p>my code is not working..I am new to VBA. Any help please.</p>
  
  <pre><code>Private Sub CommandButton1_Click()
  
     Dim xlSort As XlSortOrder 
     Dim LastRow As Long 
  
     With ActiveSheet
  
         LastRow = .Cells(.Rows.Count, "E").End(xlUp).Row End With
  
         If (Range("E2").Value &gt; Range("E" &amp; CStr(LastRow))) Then
             xlSort = xlAscending
         Else
             xlSort = xlDescending
         End If
  
         .Sort Key1:=Range("E2"), Order1:=xlSort, Header:=xlNo, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
            DataOption1:=xlSortNormal    
  
  
      ActiveWorkbook.Save  
  
  End Sub
  </code></pre>