Скрыть весь столбец на основе выбора слайсера

Question

У меня есть сводная таблица (PivotTable1) и слайсер под названием Team.У слайсера есть 4 варианта, и я хочу, чтобы пользователь выбирал «Перевыпуск» из слайсера только тогда, когда всплывающий столбец G, в противном случае он должен быть скрыт для остальных трех параметров.

Приведенный ниже код ничего не делает, когда я делаю выбор перевыпуска на слайсере.Я не получаю ни ошибок, ни требуемого результата.

Private Sub Worksheet_PivotTableUpdate (ByVal Target As PivotTable)
    If Target.Name <> "PivotTable1" Then
        Exit Sub
    Else
       If Parent.SlicerCaches("Team").SlicerItems("Re-issue").Selected = True Then
        Columns("G:G").EntireColumn.Hidden = False
       Else
        Columns("G:G").EntireColumn.Hidden = True
       End If
    End If
End Sub