Dan, I'm not sure who posted this but it is not mine. This will find all Excel Workbooks in a folder(and subfolders)and then create a hyperlink to them as well.
Sub ListFiles()
Dim i As Integer
With Application.FileSearch
.FileType = msoFileTypeExcelWorkbooks
.LookIn = "\ntco02asrifinreportsdepts"
.SearchSubFolders = False 'or True, depends on you
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
Cells(i, 1).Value = .FoundFiles(i)
Cells(i, 1).Hyperlinks.Add Cells(i, 1), Cells(i, 1).Value
Next i
End If
End With
End Sub