无法将此代码作为宏运行

Question

知道为什么我无法将此代码作为宏运行吗？

Sub PivotFilter()

Application.ScreenUpdating = False

Dim PI As PivotItem

With Worksheets("Sheet2").PivotTables("PivotTable2").PivotFields("OrgUnit Code:")
    .ClearAllFilters

    'Refreshing pivot table seems to remove the "set visible property" error
    Worksheets("Sheet2").PivotTables("PivotTable2").RefreshTable

For Each PI In .PivotItems
    PI.Visible = WorksheetFunction.CountIf(Range("b:b"), PI.Name) > 0
Next PI

End With

    Worksheets("Sheet2").PivotTables("PivotTable1").RefreshTable

End Sub

知道原因可能是什么？

非常感谢提前。

Answer 1

尝试公开

Public Sub PivotFilter()
     '...
End Sub

当使用播放按钮或按f5

运行时，Excel有时不能/不想运行私有子