I have a worksheet which contains a number of pivot tables for use as a dashboard. The actual pivots themselves are all hidden but their output shown in different cells on the sheet. I want the pivots to all automatically update when the user changes data on another sheet, which I am doing using this code. The code does the job but the dashboard sheet looks a bit 'messy' when updating all the pivots, by that I mean the refresh for each pivot makes the screen redraw and it just doesn't look so great. Is there any way to adapt the code so that this doesn't happen or only happens once rather than for each individual pivot refresh so it looks much smoother?

I can't easily upload a sample because the data is sensitive and has taken many many hours to create. I think it is simply an issue of screen redraw/refresh.

Private Sub Worksheet_Activate()
    Me.PivotTables("PivotTable1").PivotCache.Refresh
    Me.PivotTables("PivotTable2").PivotCache.Refresh
    Me.PivotTables("PivotTable3").PivotCache.Refresh
    Me.PivotTables("PivotTable4").PivotCache.Refresh
    Me.PivotTables("PivotTable5").PivotCache.Refresh
    Me.PivotTables("PivotTable6").PivotCache.Refresh
    Me.PivotTables("PivotTable7").PivotCache.Refresh
    Me.PivotTables("PivotTable8").PivotCache.Refresh
    Me.PivotTables("PivotTable10").PivotCache.Refresh
    Me.PivotTables("PivotTable11").PivotCache.Refresh
End Sub
Many thanks