VBA用于根据命名范围过滤枢纽分析表字段

Question

我有一个动态的命名范围和2个数据透视表（来自同一源表）-PivotTable3和PivotTable4。

我需要根据指定范围内的值对两者进行过滤。

目前我正在尝试以下操作，但是运行宏的结果只是清除所有过滤器。

谢谢！

Sub FilterPivot()
    Dim PI As PivotItem
    With Worksheets("Front").PivotTables("PivotTable3").PivotFields("[KS].[MN].[MN]")
        .ClearAllFilters
        For Each PI In .PivotItems
            PI.Visible = WorksheetFunction.CountIf(Range("NamedRange"), PI.Name) > 0
        Next PI
    End With
End Sub