Mistery Link

[Michael]

I used the following code to find info about a missing link that comes
up when my workbook is open. Only problem is I dont know what cell or
object is pointing to that file. How can I return the location of
link?

Sub findlinks()
Dim alinks As Variant
Dim i As Integer
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 If

Returns:
\BEACON\Share\Project Files\Northeast\100322 Lake Street Affordable
Housing\100323 Cheriton Heights\Proformas\Current Version\Cheriton
Heights-Current.xlsm

 

[Dave Peterson]

I'd use Bill Manville's FindLink program:
http://www.oaltd.co.uk/MVP/Default.htm