Auto update pivot tables Excel vba

sheet.vbs

' Paste in script for each worksheet you want to auto-update the pivot tables for
Private Sub Worksheet_Activate()
    Dim p As PivotTable
    For Each p In ActiveSheet.PivotTables
        p.PivotCache.Refresh
    Next p
    Cells.EntireColumn.AutoFit
End Sub