Run Time Error 1004 'Unable to get the PivotFields property of the PivotTable class'

Question

I realy have no Idea what this error means... I am trying to use the code to select all the rows under one of the subheaders in a pivot table. I am getting a run time error 100

Answer 1

I may add an extra answer (as I found nothing on that):

For people working with Data Model Pivot Tables, field names are not obvious ([tablename].[fieldname].[fieldname2]). Hence I suggest using following loop to understand what fields are currently in your pivot table:

Dim pt As PivotTable
Dim pf As PivotField

Set pt = ActiveSheet.PivotTables(ptName)

For Each pf In pt.PivotFields
    Debug.Print pf.Name
Next

This way you'll have all the names listed in the immediate view.