根据切片器选择隐藏列

Question

我有销售数据。最后两列是代理商在一个月结束时的预测，下一列是他/她将在该年结束的位置。我有一个时间范围为几个月的切片器，一种选择是YTD。 我想要的是，如果有人选择YTD，它将隐藏具有每月数字的“ J”列。我对vba知之甚少，我是从这里到那里复制的。但这不起作用。

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
    If ActiveWorkbook.SlicerCaches("Slicer_end_of_mnth").SlicerItems("YTD").Selected = True Then
        Columns("J:J").Hidden = True
    Else
        Columns("J:J").Hidden = False
    End If
End Sub