Pivot Run-time Error 1004

[stream71]

Уважаемые господа,

На листе два pivot`а.
Необходимо, чтобы макрос при выборе параметра в одном Pivot, выбирал
аналогичный парамет в другом.

Простейщий макрос...

Sub Macro1()

ActiveSheet.PivotTables("PivotTable 4").PivotFields("TopLevelParentName "). _
CurrentPage = Cells(3, 3)
End Sub

Выдает ошибку 1004 Unable to set the default property of PivotItem class

Помогите. в чем дело?