1: 2: 3:
UnderChangeDataSource () ActiveSheet.PivotTables (”PivotTable1”) .ChangeConnection ActiveWorkbook.Connections (spänna (”B5”). Värdera), Avsluta suben