PivotTable.CalculatedFields (Excel)

Devuelve una colección CalculatedFields que representa todos los campos calculados del informe de tabla dinámica especificado.

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