Update PivotChartTable

[SerenityNetworks]

I'd like to assign a macro to update all the PivotChartTables in a worksheet. I will need to have a loop, but right now I can't even design a macro to update even one chart. When I record a macro to do it, I get:
Sub TestUpdate() ActiveChart.ChartArea.Select ActiveSheet.PivotTables("PivotChartTable8").PivotCache.Refresh ActiveChart.ChartArea.Select ActiveSheet.PivotTables("PivotChartTable9").PivotCache.Refresh End Sub

But when I try to run it, I receive an error on the first refresh line (even if I have the chart already selected). The error is:
Run-time error '1004':
Unable to get the PivotTables property of the Worksheet class

I'm lost on getting the code I need to refresh each chart. Any help will be appreciated.

 

[SerenityNetworks]

The following seems to be working. If there are any other suggestions, then please feel free to post them.

Sub RefreshPivotTableCache()
   Dim PivotCache As PivotCache
   On Error GoTo ErrorHandler
   For Each PivotCache In ActiveWorkbook.PivotCaches
       PivotCache.Refresh
   Next PivotCache
   Exit Sub
ErrorHandler:
 MsgBox ("There was an error in refreshing the charts.  Please refresh each one manually.")
End Sub