Private Sub RefreshButton_Click()
ActiveSheet.PivotTables("NewPT1").PivotCache.Refre sh
ActiveSheet.PivotTables("NewPT2").PivotCache.Refre sh
End Sub

When the above procedure runs, when the PivotTable is larger than the last
one, I get a dialog box asking me if I wish to overwrite the existing cells,
even though the existing cells are blank. Is there a way I can avoid this,
either by adding to my code, or some additional property of the pivoit
tables?

EA