PivotField.CurrentPage (Excel)

Devuelve o establece la página actual que se muestra para el campo de página (válido solamente para campos de página).

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