It seems like your code is pointing to a range ("PivotTable2") that
doesn't exist in your new workbook.

The PivotTable names are automatically generated by Excel,
PivotTable1, PivotTable2, PivotTable3, etc. If this is the first
PivotTable in the new workbook, it's name might be PivotTable1,
therefore asking to pull a field in from PivotTable2 would be
impossible.

Check the name of the table, by right-clicking anywhere inside it and
viewing the "table options." If it's not named PivotTable2, then
replace your code with the new name and try to run it.

Hope that helps solve your issue...


"jngi" <jirwin@belfastinstitute wrote in message ...
Any VBA/Pivot table experts out there?


I have two identical workbooks, one old, one new. The
only difference between them is the data. In the old one
I can set up a pivot table using code - the new one gives
the error with exactly the same code:

'Unable to get the PivotFields property of the
PivotTable class'

The error occurs in the first row of the following code:

With ActiveSheet.PivotTables("PivotTable2").PivotFields
("Mode")
.Orientation = xlRowField
.Position = 1
End With

I can set up the pivot table in the new sheet manually
every time but when I try it with code it fails.

Help!