since macros can be recorded as well as written, your easiest answer might be to turn on the record...then select the top left of the pivot table (which should select it all)...copy and paste to new workook...the resulting macro could be incorporated into your code above?