1: 2: 3: 4: 5:
Privata underWorksheet_PivotTableChangeSync (ByVal uppsätta som mål som PivotTable), 'kodifiera insida som ska här, utför, efter OLAP har hängt har förnyat Avsluta suben