My original code is the one that lets the users select the file twice. The reason for the file dialogue prompt twice is this code
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12Xml, "qryDepartment", selectFile, True - 1, "A1:C2"
DoCmd.TransferSpreadsheet acImport...