Невозможно запустить этот код как макрос

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 

Excel иногда не могут/не хотят запускать частные субмарины при работе с кнопкой воспроизведения или нажмите f5