Pivot Table Run Time Error 1004
 

This is getting frustrating. XL2000, I have 1 wbk with data only
(GetReadyData) and 1 wbk with 3 pivot tables (GetReadyPivot), (5 fields per
pivot table). The reason there are two wbks is, new orders are always coming
thru and so I update my version of the data wbk and then copy it up to the
server. I keep the pivot wbk updated by having the user click on a button
with the following code.

Sub RefreshSheet1()
Application.ScreenUpdating = False
Range("D19").Select
ActiveSheet.PivotTables("PivotTable2").RefreshTabl e
Range("A1").Select
Application.ScreenUpdating = True
End Sub

Every so often when the user clicks the Update button on the GetReadyPivot
wbk, the user gets €œRun Time Error 1004€� and not able to update the pivot
tables any longer. The only fix I know of is to re-build the pivot table from
scratch.

Does anyone have any suggestions?

Such as, if I put everything into 1 wbk, is there a better way to append
data to a wbk which will be open all day and still have the pivot table
updated?