Slicer select automatically

Dear all,
I want to select the slicer automatically with value = 0
when the pivot table refresh, Someone who knows how to make this work?
Thanks for your help / alternative solution ideas.

Please put this code in Sheet Pivot

Dim t
Private Sub Worksheet_PivotTableChangeSync(ByVal Target As PivotTable)
If t <> PivotTables("PivotTable2").RefreshDate Then
    t = PivotTables("PivotTable2").RefreshDate
    Application.EnableEvents = False
    Dim it As SlicerItem
    For Each it In ActiveWorkbook.SlicerCaches("Slicer_Amount").SlicerItems
            it.Selected = it.Caption = "0"
    Next
End If
Application.EnableEvents = True
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    t = PivotTables("PivotTable2").RefreshDate
End Sub