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