Thanks, and very usefull, however still struggling to get the query to output to the specific sheet.
Have tried
DoCmd.OutputTo acOutputQuery, "Distinct_Result", acFormatXLS, ExportDir & ExportFile, True, "A:J"
and
'DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9...