Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Programmatically Retrieving Link Source Information

Sub PrintSimpleLinkInfo()     Dim avLinks As Variant     Dim nIndex As Integer     Dim wb As Workbook     Set wb = ActiveWorkbook     avLinks = wb.LinkSources(xlExcelLinks)     If Not IsEmpty(avLinks) Then         For nIndex = 1 To UBound(avLinks)             Debug.Print "Link found to '" & avLinks(nIndex) & "'"         Next nIndex     Else         Debug.Print "The workbook '" & wb.name & "' doesn't have any links."     End If End Sub