Finding External links

[Roderick_E]

This snippet will create a new sheet and return all the external links but my problem is that the link it returns isn't found on any sheet within the workbook (as a formula) nor do I find it in the name mgr refs. Where else could it be and how do I find it? Thanks

P.S. would be great if the code below indicated where the link was located, not just a cell range but in named refs, as a chart title ref, where ever it may be.

Sub ListLinks()
'Updateby20140529
Dim wb As Workbook
Set wb = Application.ActiveWorkbook
If Not IsEmpty(wb.LinkSources(xlExcelLinks)) Then
    wb.Sheets.Add
    xIndex = 1
    For Each link In wb.LinkSources(xlExcelLinks)
        Application.ActiveSheet.Cells(xIndex, 1).Value = link
        xIndex = xIndex + 1
    Next link
End If
End Sub

 

[Roderick_E]

My particular case, the link was in a chart title I missed. Again, I wish there were a way to indicate WHERE the links are per the above code.