Change Pivot Table Data Source Using A Drop Down List

Code:

---

Sub ChangeDataSource()


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


End Sub

---