CurrentPage Property 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