> Is there an easier way for user to print each page in a pivot table chart
> than selecting each page item and printing individually?
I am wanting change the current pivot table page on one worksheet to what I
choose for my current page in another pivot table on another worksheet (all
in the same workbook, both pivot table based off the same source data). I'm
by no means proficient with VBA, but I took a stab at it all the same.
Following is my code:
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
Dim PCGState As String
PCGState = Worksheets("Selections").PivotTables("Primary_Comparison_Group").
CurrentPage <> PCGState Then
CurrentPage = PCGState
When I run the code, I get a run time error 1004, saying "Unable to get the
Pivotfields property of the PivotTable class." The debug points me to the
IF-THEN statement. I'm not exactly sure what this message means, nor how to
correct the problem. Any help would be greatly appreciated.