This example opens OLE link one in the active workbook.
linkArray = ActiveWorkbook.LinkSources(xlOLELinks)
ActiveWorkbook.OpenLinks linkArray(1)
This example opens all supporting Microsoft Excel documents for the active workbook.
ActiveWorkbook.OpenLinks _
name:=ActiveWorkbook.LinkSources(xlExcelLinks)