Vincular archivos de forma masiva

¡Buenos días, Flinding!

Si lo que quieres es crear en Excel un índice con los hipervínculos de
los archivos tif que hay en una carpeta puedes utilizar un código
parecido a este en un módulo de Excel:
Sub VinculaArchivos()
Dim sCarpeta As String, sArchivo As String, i As Integer

sCarpeta = "C:\Documents and Settings\Mis documentos\Mis imágenes
\"
sArchivo = Dir$(sCarpeta & "*.'tif")
While Len(sArchivo)
i = i + 1
ActiveSheet.Hyperlinks.Add Cells(i, 1), sCarpeta &
sArchivo, , , sArchivo
sArchivo = Dir$
Wend
End Sub

El ejemplo está hecho para una carpeta. Lee todos los archivos con
extensión tif en la carpeta y genera un hipervínculo en la columna A
de la hoja activa de Excel.

Espero que te sirva de ayuda.

Un saludo,
Ignacio.