Select Pivot Slicer Item when A1 Value Changes

This worked for me in a very simple test.

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim i As Integer
    Dim ws As Worksheet
    Set ws = ActiveSheet

    If Not Intersect(Target, Range("A1")) Is Nothing Then
        ActiveWorkbook.SlicerCaches("Slicer_Test").Slicers(1).SlicerCache.ClearAllFilters
        For i = 1 To ActiveWorkbook.SlicerCaches("Slicer_Test").SlicerItems.Count
            If ActiveWorkbook.SlicerCaches("Slicer_Test").SlicerItems(i).Value <> ActiveSheet.Range("A1") Then
               ActiveWorkbook.SlicerCaches("Slicer_Test").SlicerItems(i).Selected = False
            End If
        Next
    End If

End Sub

If you still need help post example workbook which illustrates the problem

This works, I was missing the .ClearAllFilters
Thank you!

If I want to do the same for Pivot table filter instead would my code look something like this?

Private Sub Worksheet_Change(ByVal Target As Range)

Dim pt As PivotTable
Dim Field As PivotField
Dim A1Value As String

If Not Intersect(Target, Range("A1")) Is Nothing Then

Set pt = Worksheets("Sheet2").PivotTables("PivotTable2")
Set Field = pt.PivotFields("Test")
A1Value = Worksheets("Sheet1").Range("A1").Value

pt.ManualUpdate = True 

With pt
Field.ClearAllFilters
Field.CurrentPage = A1Value
pt.RefreshTable
End With

pt.ManualUpdate = False

End If
End Sub

Looks like I'm missing .Visible property and others
I added the ManualUpdate because I don't want to refresh on each status change. But not sure if I did it correctly

Code works for me.

If it is not doing what you expect then post example workbook to illustrate the problem

I'm getting an error at "Field.CurrentPage = A1Value".

Reads "Run-time error 1004. Unable to set CurrentPage property of PivotField class".

This is probably because I'm reading from CurrentPage but have pivot table is in a different sheet ("Sheet2")

And I have this code in Sheet 1