Sub link() DoCmd.TransferSpreadsheet acLink, acSpreadsheetTypeExcel9, _ "SalesFigures", "C:\Sales.XLS", True MsgBox "Spreadsheet linked" End Sub