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"