title: Extremely slow when clearing all filters on a sheet using VBA
body: <p>I don't understand why this is taking so long to complete, strangely enough it takes the most time in executing "ActiveSheet.ShowAllData". Can anyone suggest what may improve it?</p>
  
  <pre><code>Sub ClearAllFilters()
    Application.Calculation = xlManual
    Application.ScreenUpdating = False
  If ActiveSheet.FilterMode Then
  ActiveSheet.ShowAllData
  
  For Each OleObj In ActiveSheet.OLEObjects
      If OleObj.progID = "Forms.CheckBox.1" Then
          OleObj.Object = False
      End If
      Next
  
  Sheets("Manhour Summary Current Month").TextBox1.Text = ""
  Sheets("Manhour Summary Current Month").TextBox2.Text = ""
  Sheets("Manhour Summary Current Month").TextBox3.Text = ""
  
  ActiveSheet.Range("$A$6:$H$1307").AutoFilter Field:=8, Criteria1:="&lt;&gt;0"
  
       End If
  Application.Calculation = xlAutomatic
    Application.ScreenUpdating = True
  End Sub
  </code></pre>
  
  <p>Basically I'm clearing all autofilters, clearing a checkbox and clearing three textboxes.
  This is for ~1000 rows of data, so it's nothing excessive I would've thought!</p>
  
  <p>Thank you!</p>
  
  <hr>
  
  <p>The problem was with conditional formatting applied to the majority of cells. I'm astounded that it's such a problem to have autofilters and conditional formatting. </p>
  
  <p>Massive thank you for all your help! My head feels a lot better now....</p>