I have a workbook in which users make a selection from a dropdown. This selection activates an event procedure which makes changes to several pivot tables based on the user selection. However, for some reason, when I try to establish which pivotfields to be changed my procedure fails.

Private Sub Group_Find_Top10()

Dim pt20, pt22, pt24, pt25, pt26, pt27 As PivotTable
Dim Fld1, Fld2, Fld3 As PivotField
Dim shtChrt, shtTbls As Worksheet

Set pt20 = Worksheets("Tables").PivotTables("PivotTable20")
Set pt22 = Worksheets("Tables").PivotTables("PivotTable22")
Set pt24 = Worksheets("Tables").PivotTables("PivotTable24")
Set pt25 = Worksheets("Tables").PivotTables("PivotTable25")
Set pt26 = Worksheets("Tables").PivotTables("PivotTable26")
Set pt27 = Worksheets("Tables").PivotTables("PivotTable27")
Set Fld1 = pt.PivotFields("FnctnLvl1")
Set Fld2 = pt.PivotFields("Lvl678")
Set Fld3 = pt.PivotFields("CaseTypeRU")
Set shtChrt = ThisWorkbook.Worksheets("Charts")
Set shtTbls = ThisWorkbook.Worksheets("Tables")

If shtChrt.Range("D3") = "Function" Then
With pt25
Fld3.ClearAllFilters
Fld3.CurrentPage = "(All)"
End With

and so on...

all of the pivot tables use the same data and all have at least some of the fields listed.
This process fails at the Set Fld1 = pt.PivotFields("FnctnLvl1")

I suspect that I need to be more specific with the "pt." but since those fields appear in several of the tables I would have many Set lines for the fields which I would like to avoid.

Any help would be greatly appreciated.
Thanks