DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "query1", CurrentProject.Path & "\FileName.xls", True
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "query2", CurrentProject.Path & "\FileName.xls", True
and it will create the excel file "FileName.xls", with two...