Ciao a tutti,
Visto che nessuno mi da una mano e sicuramente perchè i miei codici fanno ridere, vi posto l'ultimo pezzo che mancava. Sicuramente il codice è tortuoso ma alla fine mi funziona ed ho risolto il problema.
Ovviamente accetto vivamente correzioni e migliorie da chiunque.


Set FS = Application.FileSearch
TipoFilesSearch = "*.*"
DirSearch = Sheets("Foglio1").Range("B1") 'percorso scritto in B1 in modo da poterlo cambiare a piacimento senza entrate nel codice.

With FS
.LookIn = DirSearch
.SearchSubFolders = True
.Filename = TipoFilesSearch
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
y = .FoundFiles(i)
Set fn = CreateObject("Scripting.FileSystemObject")
Set nome = fn.Getfile(y)
pippo = 0
pippo = pippo + 1
ActiveCell.Offset(pippo, 0).Select
cella = ActiveCell.Address
With ActiveSheet
.Hyperlinks.Add .Range(cella), y
End With

f = nome.Name
UserForm1.Label1.Caption = "Found " & .FoundFiles.Count & " file(s)"
UserForm1.ListBox1.AddItem f
Next i
End If
End With

Set FS = Nothing
Set fn = Nothing
Set nome = Nothing