1: 2: 3:
Sub ChangeDataSource () ActiveSheet.PivotTables (“PivotTable1„) .ChangeConnection ActiveWorkbook.Connections (gamma (“B5„). Valore) Sommergibile dell'estremità