Topic: Auto update OLAP

Friends, I ask the help. I know as to implement in normal summary, but  how to adapt under OLAP-CUBIC
There are 3 pivot tables  on certain parameters, in them changes only in the filter values ("Supplier"), and at change the remaining data is updated.

Private Sub Worksheet_PivotTableUpdate (ByVal Target As PivotTable)
With Application
.EnableEvents = False
.ScreenUpdating = False
End With
On Error Resume Next
ActiveSheet. PivotTables ("summary 3").PivotFields ("Suppliers").CurrentPage = "(All)"
i = 0
ActiveSheet. PivotTables ("summary 4").PivotFields ("Suppliers").CurrentPage = "(ALL)"
For Each x In ActiveSheet. PivotTables ("Summary 2").PivotFields ("Suppliers").PivotItems
i = i + 1
ActiveSheet. PivotTables ("summary 3").PivotFields ("Suppliers").PivotItems (i).Visible x. Visible
ActiveSheet. PivotTables ("summary 4").PivotFields ("Suppliers").PivotItems (i).Visible x. Visible
Next x
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub

the Moderator: we Learn to use tags of design of the code - FAQ
As to me this code to adapt under  cubic If I know that the field which will change is called [Goods]. [Supplier]. [Supplier]