PivotField.CurrentPage (Excel)

Retorna ou define a página sendo atualmente exibida para o campo de página válida somente para campos de página. A leitura/gravação PivotItem.

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