Почему возникает ошибка Application-denied or object-denied error VBA?

Sub Macros()
    ActiveSheet.PivotTables(1).PivotFields("%column1").Orientation = 0
End Sub

Не могу понять, почему возникает ошибка Application-denied or object-denied error?
С помощью дебаггера понял, что она появляется при присваивании 0 к ориентации.

Пробовал еще с помощью with, но она как была 0, так и остается.

Sub Macros()
    Debug.Print ActiveSheet.PivotTables(1).PivotFields("%column1").Orientation
    With ActiveSheet.PivotTables(1).PivotFields("%column1").Orientation = xlDataField
    Debug.Print ActiveSheet.PivotTables(1).PivotFields("%column1").Orientation
    End With
End Sub