Sub Test()
   With Application.FileSearch
        .LookIn = "c:\my documents"
       '検索するフォルダのパス

        .FileType = msoFileTypeExcelWorkbooks
       'エクセルファイル

        .Execute

    If .Execute() > 0 Then
      MsgBox .FoundFiles.Count & _
            " 個のファイルが見つかりました。"
      For i = 1 To .FoundFiles.Count

        ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1) _
                         , Address:=.FoundFiles(i)
           'シートに一覧表示してそのファイルにリンクする。

      Next i
   Else
       MsgBox "検索条件を満たすファイルはありません。"
   End If
  End With
End Sub