Automatic refresh of pivot table on changes in external data source.

Can you attach your sample workbook? I will help you with the code.

You can use something like

Sub RefreshPT()

Dim PT As PivotTable
Dim WS As Worksheet

    For Each WS In ThisWorkbook.Worksheets

        For Each PT In WS.PivotTables
          PT.RefreshTable
        Next PT

    Next WS

End Sub

Deep