vba to refresh pivot table not working

[vbanovice123]

Sub RefreshPivotTables()
'
' Macro1 Macro
'
'
Sheets("Agency_Data").Select
Range("B25").Select
ActiveSheet.PivotTables("PivotTable_Agency_Data").PivotCache.Refresh
ActiveWorkbook.Close SaveChanges:=True

End Sub

 

[jaysin60]

I believe you'll have to run this whenever you've refreshed the SQL tables and want to update the new data to your pivot tables as well. You might want to add that line to one of the events in your workbook (workbook open should work) and your pivottables should be up to date whenever you open the workbook & need the data.

Thanks a lot, I'll try that.