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").RefreshTable
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?