CurrentPage Property

Returns or sets the current page showing for the page field (valid only for page fields). Read/write PivotItem.

expression   Required. An expression that returns one of the objects in the Applies To list.

Example

This example returns the current page name for the PivotTable report on Sheet1 in the string variable strPgName.

Set pvtTable = Worksheets("Sheet1").Range("A3").PivotTable
strPgName = pvtTable.PivotFields("Country").CurrentPage.Name