根据单元格值过滤olap数据透视表

Question

以下代码正在运行：

ActiveSheet.PivotTables("PivotTable2").PivotFields( _
    "[Cost Center].[Cost Center].[Cost Center L4]").VisibleItemsList = Array( _
    "[Cost Center].[Cost Center].[Cost Center L4].&[0130]")

但如果我试图将其改为差异，我会收到错误：

Dim NewCat As String
NewCat = Range("A1").Value
ActiveSheet.PivotTables("PivotTable2").PivotFields( _
    "[Cost Center].[Cost Center].[Cost Center L4]").VisibleItemsList = Array( _
    "[Cost Center].[Cost Center].[Cost Center L4].&["&(NewCat)&"]")

请告知我如何按照单元格A1的值过滤它

谢谢！