title: How to improve refreshing Pivot Table speed
body: <p>I have this code which refreshes pivot table data.</p>
  
  <pre><code>Dim wsPT as Worksheet
  Dim pt as PivotTable
  
  Set wsPT = Thisworkbook.Sheets("Pivot")
  
  With wsPT
      For Each pt in .PivotTables
          pt.RefreshTable
      Next pt
  End With
  </code></pre>
  
  <p>It is working fine,  but kinda slow.<br>
  I have 10 PT in the WS.<br>
  How can I improve the speed of updating?<br>
  Any help would be much appreciated.</p>