根据切片器选择隐藏整个列

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