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" <(E-Mail Removed)> wrote in message
news:1BADCDDD-02BB-4C9F-82E9-(E-Mail Removed)...
> 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