Make sure there's nothing else on the Data sheet. Then, something like
this should do it, replacing the table on the Data sheet with the
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, _
"MyQuery", "D:\Folder\File.xls", True, "Data"
On Wed, 25 May 2005 15:00:04 -0700, Shark Jr. <Shark
Please respond in the newgroup and not by email.