CurrentPage Property
Applies To
PivotField object.
Description
Returns or sets the current page showing for the page field (only valid for page fields). Read/write String.
Remarks
To set this property, set it to the name of the page. Set it to "All" to set all pages that are showing.
Example
This example sets the current page for the PivotTable on Sheet1 to the page named "Canada."
Set pvtTable = Worksheets("Sheet1").Range("A3").PivotTable
pvtTable.PivotFields("Country").CurrentPage = "Canada"