Change Pivot Table Data Source Using A Drop Down List

[hanishgautam]

Sub ChangeDataSource()


With ActiveSheet.Shapes(Application.Caller).ControlForm at
ActiveSheet.PivotTables("PivotTable1").PivotTableWizard _
SourceType:=xlDatabase, SourceData:=.List(.Value)
End With


End Sub