Externe Verknüpfungen auflisten

Sub ExterneLinksAuflisten()
    Dim links As Variant, i As Long, out As Worksheet
    links = ThisWorkbook.LinkSources(Type:=xlExcelLinks)
    Set out = Worksheets.Add
    out.Name = "Link_Report_" & Format(Now, "hhnnss")
    out.Cells(1, 1).Value = "Externe Verknüpfungen"
    If IsEmpty(links) Then
        out.Cells(2, 1).Value = "Keine externen Excel-Verknüpfungen gefunden."
    Else
        For i = LBound(links) To UBound(links)
            out.Cells(i + 2, 1).Value = links(i)
        Next i
    End If
    out.Columns.AutoFit
End Sub