PivotTable.CalculatedFields (Excel)

Retorna uma coleção CalculatedFields que representa todos os campos calculados no relatório de tabela dinâmica especificado. Somente leitura.

Dim cfs As CalculatedFields
Set cfs = ActiveCell.PivotTable.CalculatedFields()