1: 2: 3:
Sub ChangeDataSource () ActiveSheet.PivotTables (“PivotTable1”) .ChangeConnection ActiveWorkbook.Connections (escala (“B5”). Valor) Submarino da extremidade