CurrentPage Property
Returns or sets the current page showing for the page field (valid only for page fields). Read/write PivotItem.
expression.CurrentPage
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