Sheets("Data").Visible = True
Sheets("Data").Select
Dim Ws As Worksheet, Qt As QueryTable, Pt As PivotTable
For Each Ws In ThisWorkbook.Worksheets
For Each Qt In Ws.QueryTables
Qt.BackgroundQuery = False
Next Qt
For Each Pt In Ws.PivotTables
Pt.PivotCache.BackgroundQuery = False
Next Pt
Next
ThisWorkbook.RefreshAll
Sheets("Analyse").Select
...