This should handle all your needs:
Sub AllWorkbookPivots()
Dim pt As PivotTable
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
For Each pt In ws.PivotTables
pt.RefreshTable
Next pt
Next ws
End Sub

This, and other good things he
http://www.ozgrid.com/VBA/pivot-table-refresh.htm


Regards,
Ryan--



--
RyGuy


"Mike C" wrote:

Hello,

I have created the following named range:

=OFFSET('FL1'!$A$12,0,0,COUNTA('FL1'!$A:$A),COUNTA ('FL1'!$12:$12))

But I cannot figure out how to update a pivot table's results
automatically (after pasting a new set of data into the pivot table's
original source field.

In essence, I have a report that I need to pivot every morning
(sometimes 5-6 times per day). I am hoping to simply paste the new
data into the original tab where my prior day's report data existed,
and then click on a button that will update the pivot table results
for the new data.

Does anyone have a some code that would allow this?

I have not figured out how to do it........

THanks for any suggestions!