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()