PivotField.CurrentPage (Excel)

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

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