Linking a Listbox with a Pivot Table

[Mikeykt]

Hi

I've tried connecting my list box with a pivot table on another sheet so that when you change the list box then it changes the pivot table in the background.

Can anyone spot why it isn't working?

Sub DropDown_Campaign()
'
' DropDown_Campaign Macro
'
'
Application.Goto Reference:="DropDown_Campaign"
Range("D7").Select
ActiveSheet.Shapes("Drop Down 13").Select
Application.Goto Reference:="DropDown_Campaign"
Sub GiftPivotDDDiv()
Dim rngTxtDiv As String
rngTxtDiv = Range("Lookups!rngTxtDiv").Value
Worksheets("GiftPivot").PivotTables("PivotTable1").PivotFields("CAMPAIGN_RESPONDED_TO").CurrentPage = rngTxtDiv
End Sub

 

[GlennUK]

Are there supposed to be 2 subs here? What's what exactly?

 

[Mikeykt]

Hi

I've managed to fix it thanks