acExport
Private Sub cmdSalesSheet_Click() DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "qryAllSalesFigures", "C:\Sales.xls" End Sub