PivotTable.PageRangeCells (Excel)

Retorna um objeto Range que representa somente as células no relatório de tabela dinâmica especificado que contêm os campos de página e as listas suspensas de itens.

Dim rngPageRangeCells As Range
Set rngPageRangeCells = ActiveCell.PivotTable.PageRangeCells