Pivot table not updating when using data validation

Hi,

When posting a question next time try to comply to forum rules. Reading code without code tags is sometimes undoable.
Having said that, try this code. Please remember to change the fieldname to apply the filter to!

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ws As Worksheet
    Dim pt As PivotTable
    Const strField1 As String = "enter your own field name here!!"
    
    On Error Resume Next
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    
    If Target.Address = "$B$3" Then
        For Each ws In ThisWorkbook.Worksheets
            For Each pt In ws.PivotTables
                With pt.PageFields(strField1)
                .ClearAllFilters
                .CurrentPage = Target.Value
                End With
            Next pt
        Next ws
    End If
   
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

Thank you Joris, your a star, that worked perfect, I will make sure I do that from now on with code tags.

Thanks
Dustin

Hi Dustin,

Please mark issue as solved if you're happy with the provided solution.