Code:Sub ChangeDataSource() With ActiveSheet.Shapes(Application.Caller).ControlFormat ActiveSheet.PivotTables("PivotTable1").PivotTableWizard _ SourceType:=xlDatabase, SourceData:=.List(.Value) End With End Sub
Code:Sub ChangeDataSource() With ActiveSheet.Shapes(Application.Caller).ControlFormat ActiveSheet.PivotTables("PivotTable1").PivotTableWizard _ SourceType:=xlDatabase, SourceData:=.List(.Value) End With End Sub
Last edited by Excel Fox; 07-05-2013 at 01:55 PM. Reason: Code Tags Added
Bookmarks