1: 2: 3:
Sub ChangeDataSource () ActiveSheet.PivotTables (“PivotTable1”) .ChangeConnection ActiveWorkbook.Connections (gama (“B5”). Valor) Submarino del extremo