Hi clifton,
assuming you have some VBA knowledge, I would suggest something like this:
Private Sub ExportSelectionToSpreadsheet()
On Error GoTo Err_Export
Dim dbXLS As DAO.Database
Set dbXLS = OpenDatabase("[path and name of your Excel file]", False, False, "Excel 8.0;HDR=Yes")...