[Sandy[_3_]]

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]

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

[Sandy[_3_]]

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
-----Original Message-----
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


.