CurrentPageName Property [Excel 2003 VBA Language Reference]
Returns or sets the currently displayed page of the specified PivotTable report. The name of the page appears in the page field. Note that this property works only if the currently displayed page already exists. Read/write String.
This property applies to PivotTables that are connected to an OLAP data source. Attempting to return or set this property with a PivotTable that is not connected to an OLAP data source will result in a run-time error.
This example sets the name of the currently displayed page of the first PivotTable report on the active worksheet to "USA."
ActiveSheet.PivotTables("PivotTable1") _ .PivotFields("[Customers]").CurrentPageName = _ "[Customers].[All Customers].[USA]"
Applies to | PivotField Object