Autorefresh pivot tables after data import from SQL

I have tons of reports that import data from MSSQL, then based on this data there are also tons of pivot tables.

I set both SQL data sources and pivot tables to refresh after the file is opened, but of course it has to work in a retarded way
First it refreshes the pivot tables and then the SQL data.. So the pivot tables are not showing the latest data in the end.

Any solutions for that?
VBA is also an option..

Thanks!

Use the below code by changing the worksheet name

Dim ws As Worksheet
Dim pivot As PivotTable
'Dim z As PivotCache
For Each ws In oWB_Data_File.Worksheets
If ws.PivotTables.Count > 0 Then
For Each pivot In ws.PivotTables
pivot.RefreshTable
Next pivot
End If
Next

Thank you!

I have to put this on each worksheet, right?

and just to be sure, the "ws" has to be changed to the worksheet name, right?

you have to use replace oWB_Data_File with thisworkbook and paste into workbook code section and run

I don't get it.. it doesn't save it. Every time I reopen the file its gone.

I do:
Right click on some sheet => View code => Open ThisWorkbook => Paste this:

Dim ws As Worksheet
Dim pivot As PivotTable
'Dim z As PivotCache
For Each ws In test.xlsm.Worksheets
If ws.PivotTables.Count > 0 Then
For Each pivot In ws.PivotTables
pivot.RefreshTable
Next pivot
End If
Next

And SAVE AS Macro enabled excel file.

What am I doing wrong?

Thanks