Works great! Thank you.

"Debra Dalgleish" wrote:

> The following code is adapted from a posting by Robert Rosenberg. It
> changes the second Pivot Table if the page is changed on the first PT.
> You could revise it to suit your layout. As noted in the code, place the
> code on the module for the worksheet which contains the Pivot Table
> (right-click the sheet tab, choose View Code).
> '================================
> Dim mvPivotPageValue As Variant
>
> Private Sub Worksheet_Calculate()
> 'by Robert Rosenberg 2000/01/11
> ''I use a module level variable to keep track of
> ''the last selection from the Page Field.
> ''This routine was place in the Worksheet
> ''containing the PivotTable's code module.
> Dim pvt As PivotTable
> Dim pvt2 As PivotTable
>
> Set pvt = Me.PivotTables(1)
> Set pvt2 = Sheets("OtherPivot").PivotTables(1)
> If LCase(pvt.PivotFields("Customer").CurrentPage) _
> <> LCase(mvPivotPageValue) Then
> 'The Page Field was changed
> Application.EnableEvents = False
> pvt.RefreshTable
> mvPivotPageValue = _
> pvt.PivotFields("Customer").CurrentPage
> pvt2.PageFields("Customer").CurrentPage _
> = mvPivotPageValue
> Application.EnableEvents = True
> End If
>
> End Sub
> '================================
>
> RobinG wrote:
> > I have multiple pivot tables and I want to carry over the selections from
> > Pivot table a to Pivot table B, so that the page fields are filtered
> > identically. Any ideas?
>
>
> --
> Debra Dalgleish
> Excel FAQ, Tips & Book List
> http://www.contextures.com/tiptech.html
>
>