noob here...Working in Excel for Msft 365 v2302 64bit and need to preface this with "add a slicer" is not the solution to my problem. You can't filter slicer values, so I do need a drop down.

I have a workbook with multiple pivot tables and I have three different data validation dropdowns, where each drop down selection needs to change the filter or that field field. I have named ranges for each data validation cell: "SelectRetailer", "SelectCat" and "SelectBrand" I currently have code that works (credit to contextures site) to change just one field ("CustomRetailer") in the full code below, but I also need the filters to change for the two other fields, "CustomCat" and "CustomBrand".

The part I can't figure out is the code for the multiple strings... I've tried

With pt.PageFields(strField) Or pt.PageFields(strField2) Or pt.PageFields(strField3)

for that line but it didn't work - I also tried And instead of Or and no luck. I'm assuming it's a syntax issue but I just keep slamming into walls. I appreciate any assistance anyone might be willing to give! I'll buy you a coffee!

Private Sub Worksheet\_Change(ByVal Target As Range)
Dim ws As Worksheet
Dim pt As PivotTable
Dim pi As PivotItem
Dim strField As String
Dim strField2 As String
Dim strField3 As String
strField = "CustomRetailer"
strField2 = "CustomCat"
strField3 = "CustomBrand"
On Error Resume Next
Application.EnableEvents = False
Application.ScreenUpdating = False
If Target.Address = Range("SelectRetailer").Address Then
' For Each ws In ThisWorkbook.Worksheets
Set ws = Me
For Each pt In ws.PivotTables
With pt.PageFields(strField)
For Each pi In .PivotItems
If pi.Value = Target.Value Then
.CurrentPage = Target.Value
Exit For
Else
.CurrentPage = "(All)"
End If
Next pi
End With
Next pt
' Next ws
End If
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub