Welcome to the Board!
Here's one way. The following code will prompt the user to select the files you'd like listed with a hyperlink to each file. The list is created in a new workbook.
Does this help?Code:Sub HyperlinkedList() 'Written by Barrie Davidson Dim FilestoLink As Variant Dim i As Integer FilestoLink = Application.GetOpenFilename("Excel files (*.xls),*.xls", , "Create hyperlinked list", , True) If IsArray(FilestoLink) = False Then If FilestoLink = False Then Exit Sub End If Workbooks.Add For i = 1 To UBound(FilestoLink) ActiveSheet.Cells(i, 1).Value = FilestoLink(i) ActiveSheet.Hyperlinks.Add anchor:=Cells(i, 1), _ Address:=FilestoLink(i) Next i ActiveSheet.Columns.AutoFit End Sub