Thanks everyone the problem was solved by using this code...
DoCmd.OutputTo acOutputQuery, "LeadTime", acFormatXLS, "LeadTime", False
Set ExcelApp = CreateObject("Excel.Application")
ExcelApp.Visible = True
ExcelApp.Workbooks.Open ("LeadTime.xls")
ExcelApp.Cells.Select...