This is what I currently have
Private Sub Command0_Click()
DoCmd.TransferSpreadsheet acImport, 8, "Table1", "M:\teststuff\mtd.XLS", True, "Sheet1!b1:q48"
'DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "Table1", "M:\teststuff\mtd.XLS", False, "Sheet1!b5:q48"
DoCmd.OpenQuery...