[AccessD] Generating an Excel Pivot Table from Access - Problem with Second Execution

I copied your code to a test MDB and interestingly, received an error on a
different line than you, and with a different error message. I've played
around a bit (e.g. changed "Sheets" to "WorkSheets", etc.) but the error
persists. The offending line is:

    ActiveSheet.PivotTables("PivotTable3").AddDataField

And the error message is:
   RunTime error 450:
   Wrong number of arguments or invalid property assignment.

I'm running Office 2007.

Very puzzling.

Arthur