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