VBA Code for Links to Excel workbooks

Sandy · Jul 15, 2003

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

Tom Ogilvy · Jul 15, 2003

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"

Sandy · Jul 23, 2003

Thanks for your response.

The specific problem I'm having is when documents are
emailed, the links are broken via changing them to drive C
instead of the G it's supposed to be. I am looking for a
way to programmatically refer to the links so I can change
it in code to G. I assume I'll have to be able to find
all of the links to do it.

Could you be as specific as possible when you reply? I'm
rather dense in this area.

Thank you so much.

Sandy