aLinks = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(aLinks) Then
For i = 1 To UBound(aLinks)
MsgBox "Link " & i & ":" & Chr(13) & aLinks(i)
Next i
End IfMight be what you mean.If you mean a URL to Bill Manville's findlink
utility:http://www.bmsltd.co.uk/MVP/Default.htmRegards,Tom Ogilvy"Sandy"
wrote in message
...
Does anyone know where the find the code (for the links)
for linked workbooks?

Any help anyone can give me will be greatly appreciated.

Sandy