CurrentPageName Property Example
This example sets the name of the currently displayed page of the first PivotTable report on the active worksheet to "United States."
ActiveSheet.PivotTables("PivotTable1") _
.PivotFields("Country").CurrentPageName = _
"United States"