I'd really like to do the following to try and speed things up a little.

With .PivotTables("MyPivotTable")
'.DeferLayoutUpdate = True

.PivotFields("Field1").Orientation = xlRowField
.PivotFields("Field2").Orientation = xlColumnField
.AddDataField .PivotFields("Field3"), "", xlSum

'.DeferLayoutUpdate = False
End With

I'm currently turning screen updating off but am hoping that deferring
layout update might speed things up a little as well.

Thanks,
Jeremy

Figured it out. Looking through the object model is actually worth while
some times. :-P

With Sheet1.PivotTables("MyPivotTable")
.ManualUpdate= True

.PivotFields("Field1").Orientation = xlRowField
.PivotFields("Field2").Orientation = xlColumnField
.AddDataField .PivotFields("Field3"), "", xlSum

.ManualUpdate= False
End With

"GollyJer" wrote in message
...
I'd really like to do the following to try and speed things up a little.

With .PivotTables("MyPivotTable")
'.DeferLayoutUpdate = True

.PivotFields("Field1").Orientation = xlRowField
.PivotFields("Field2").Orientation = xlColumnField
.AddDataField .PivotFields("Field3"), "", xlSum

'.DeferLayoutUpdate = False
End With

I'm currently turning screen updating off but am hoping that deferring
layout update might speed things up a little as well.

Thanks,
Jeremy