title: Pivot Table Manual Update Not Working
body: <p>I have a pivot table, and I am trying to select certain pivot items based on values in an array.  I need this process to go faster, so I have tried using application.calculation = xlcalculationmanual and pivottables.manualupdate = true, but neither seem to be working; the pivot table still recalculates each time I change a pivot item. </p>
  
  <p>Is there something I can do differently to prevent Excel from recalculating each time?</p>
  
  <p>Here is my code:</p>
  
  <pre><code>Application.Calculation = xlCalculationManual
  
  'code to fill array with list of companies goes here    
  
  dim PT As Excel.PivotTable
  Set PT = Sheets("LE Pivot Table").PivotTables("PivotTable1")
  
  Sheets("LE Pivot Table").PivotTables("PivotTable1").ManualUpdate = True
  
  dim pivItem As PivotItem
  
  'compare pivot items to array.  If pivot item matches an element of the array, make it visible=true, otherwise, make it visible=false
  For Each pivItem In PT.PivotFields("company").PivotItems
      pivItem.Visible = False 'initially make item unchecked
      For Each company In ArrayOfCompanies()
          If pivItem.Value = company Then
              pivItem.Visible = True
          End If
      Next company
  Next pivItem
  </code></pre>