VBA List data connections of each Pivot Table
Sub listpivotConns()Dim ws As WorksheetDim pv As PivotTableFor Each ws In ThisWorkbook.SheetsFor Each pv In ws.PivotTablesDebug.Print (pv.Name)Debug.Print (pv.RefreshDate)Debug.Print (pv.PivotCache.WorkbookConnection)Next pvNext ws'MsgBox "Done"End Sub