VBA: lijst met gekoppelde bestanden veranderen in hyperlink met gekoppelde bestanden

deze vraag heb ik eerder gesteld op het excel-forum, maar hij hoort hier dus
------------------------------------------------------------------------------------------

beste lezer,

Ik heb een (goed ) werkende macro gemaakt, waarin ik op een apart tabblad genaamd "gekoppelde bestanden" een lijst laat zien van in dit file gekoppelde bestanden.
maar ik wil graag de namen van de gekoppelde bestanden ook als Hyperlinks laten zien. Dit lukt mij nog niet....

Wie kan mij helpen?

Sub Lijst_met_gekoppelde_bestanden()
Sheets("Gekoppelde bestanden").Visible = True
Dim wb As Workbook
Set wb = Application.ThisWorkbook
With ThisWorkbook.Sheets("Gekoppelde bestanden")
.Columns(2).Clear
End With
If Not IsEmpty(wb.LinkSources(xlExcelLinks)) Then
ThisWorkbook.Sheets("Gekoppelde bestanden").Activate
xIndex = 2
For Each link In wb.LinkSources(xlExcelLinks)
Application.ActiveSheet.Cells(xIndex, 2).Value = link
xIndex = xIndex + 1
Next link
End If
End Sub

Dank alvast voor de moeite!!

met vriendelijke groet,
Gesus

probeer dit eens:

geweldig, werkt fantastisch!!!! dankjewel

met vriendelijke groet,
Gesus