Sub transSpread() DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, _ "tblSales", "C:\Sales.xls" MsgBox "Sales spreadsheet created" End Sub