VBA Code to change pivot tables to classic view

[hawkinsr86]

Hi guys

I am working with excel 2007 and was just wondering if anyone has some code which turns the pivot table layout into the "Classic PivotTable layout"

Basically some code which mimics the following

Right click on the pivot table
click PivotTable options...
click Display
check "Classic PivotTable layout (enables dragging of fields in the grid)"

Thanks!

 

[RoryA]

Assuming you have selected a cell in the pivot table, then just:

Sub SetClassicPT()
Selection.PivotTable.InGridDropZones = True
End Sub