Calculate how many items are in the data field

[Djblois]

I use pivot tables im my Add-in to create reports for my company and I need to find a way through VBA to calculate how many fields have been added to the datafield of the Pivot table class. I need to do this because I want to change the datafield to a column field if more than 1 is added.

[Djblois]

bump

[geekgirlau]

Dim pvtTable As PivotTable


Set pvtTable = Worksheets("Pivot").Range("A4").PivotTable
Debug.Print pvtTable.DataFields.Count