Error in Worksheet_PivotTableUpdate

[kadzu]

I'm trying to synchronize the filters of 2 pivot table(just from one way, change filters in pivot2 when filters in pivot1 are changed but not the opossite).
But I get this error when I try getting the sheet.
Excecution Time Erro 438

The pivot in this worksheet might be changed in VBA Code of the event "WorkbookOpen" so it might not run when this worksheet is active, this is the code:

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)

If Target.Name <> "pivot1" Then Exit Sub

Dim st As Worksheet
Dim pivot1 As PivotTable
Dim pivot2 As PivotTable

Set st = Target.Worksheet
Set pivot2 = st.PivotTables("pivot2")
Set pivot1 = st.PivotTables("pivot1")

For Each pf In pivot1.PageFields
    If pf.Name <> "Filter1" Then
        pivot2.PageFields(pf.Name).CurrentPage = pf.CurrentPage
    End If
Next

End Sub

[vbfbryce]

"Target" doesn't have a Worksheet property. You can use:

Set st = activesheet

[kadzu]

But what is activeworksheet? If it is the worksheet currently been seen then it wont work because the pivot table will be changed in the WorkbookOpen and the sheet with this pivot is not the first sheet that shows up when the file is opened.

[vbfbryce]

If it's this event:

Worksheet_PivotTableUpdate

then the active sheet is the one that contains the pivot table that got updated. Would that not be want you'd want it to respond to?

[westconn1]

But what is activeworksheet?

i would guess that a pivottable would have a parent object, which would be the worksheet

[vbfbryce]

Correct. You can look at the "Target.Parent.Name" to confirm which sheet.