VBA List data connections of each Pivot Table
Sub listpivotConns()
Dim ws As Worksheet
Dim pv As PivotTable
For Each ws In ThisWorkbook.Sheets
For Each pv In ws.PivotTables
Debug.Print (pv.Name)
Debug.Print (pv.RefreshDate)
Debug.Print (pv.PivotCache.WorkbookConnection)
Next pv
Next ws
'MsgBox "Done"
End Sub
