Hello all, and a very merry Boxing Day!
I've written the following piece of code which links 2 filters i.e. if one filter has a certain set of selections, the other filter will take the same set.
Dim N As Integer
N = 1
With Sheet2.PivotTables("PivotTable3").PivotFields("Original Funder")
Do While N < .PivotItems.Count
Sheet1.PivotTables("PivotTable1").PivotFields("Original Funder").PivotItems(N).Visible = .PivotItems(N).Visible
N = N + 1
Loop
End With
The filters are from pivot tables that are drawing on about 9000 rows of data. This does work, but incredibly slowly - it takes more than 5 minutes to get through the while loop. Does anybody know why?
Many thanks for any help you can give.
Bookmarks