Csatolt fájlokról lista Excelben

Sub Csatolt_fajlok()
' Csatolt fájlokról készít egy kimutatást
kjaktiv = ActiveWorkbook.Name
' megjeleníti a csatolt Excel fájlokat
aLinks = ActiveWorkbook.LinkSources(xlLinkTypeExcelLinks)
If Not IsEmpty(aLinks) Then
' For i = 1 To UBound(aLinks)
  'MsgBox "Link " & i & ": " & aLinks(i)
  ' Next i
  Windows("csatolt.xls").Activate
  Sheets("csatolás").Select
  kjdb = Worksheets("csatolás").Range("d1")
'Set NewSheet = Worksheets.Add
  For i = 1 To UBound(aLinks)
  Worksheets("csatolás").Cells(kjdb + i + 1, 1).Value = kjaktiv
  Worksheets("csatolás").Cells(kjdb + i + 1, 2).Value = aLinks(i)
  Next i
End If
End Sub