CODE-SCHNIPSEL

Option Explicit
' ****************************************************************
' Autor/en und Original-Quelltext unter:
' https://www.online-vba.de/vba_listlinks.php
' Verwendung der Quelltexte auf eigene Gefahr!
' Es gelten die Nutzungsbedingungen von https://www.online-vba.de
' ****************************************************************

Public Sub OVBAde_Verknuepfungen_auflisten()
  Dim alinks As Variant
  Dim i As Long
    
    alinks = ActiveWorkbook.LinkSources(xlExcelLinks)
    
    If Not IsEmpty(alinks) Then
        ActiveWorkbook.Sheets.Add
        Cells(1, 1) = "Verknüpfungen in dieser Arbeitsmappe"
        For i = 1 To UBound(alinks)
            Cells(i + 1, 1) = alinks(i)
        Next i
    Else
        MsgBox "Diese Arbeitsmappe enthält keine Verknüpfungen!"
    End If
    
End Sub