Excel VisualBasic Script

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