Foro de programacion

Buenos dias a todos.

Tengo un problema con una macro en vb.

Os comento un poco de que va

Tengo una serie de archivos en una misma carpeta. Estos archivos tienen todos el mismo formato puesto que se hacen a partir de una plantilla.

En la misma carpeta tengo un archivo "RESUMEN.XLS", donde se recogen los datos de cada una de los archivos de la carpeta y va mostrandolos en forma de resumen.

He conseguido que en una de las columnas del archivo RESUMEN me ponga el nombre del archivo del que esta recupernado los datos, pero me gustaria que en vez del nombre me pusiese un hipervinculo para poder abrirlo.

El codigo del que os estoy hablando es el siguiente..

Sub ABRIR_TODO()
Dim Objeto_Ficheros As Object
Dim Lista_Ficheros As Object
Dim Ficheros As Object
Dim Fichero As Object
Dim FILA As Integer
FILA = 0
Application.ScreenUpdating = False
Set Objeto_Ficheros = CreateObject("Scripting.FileSystemObject")
Set Lista_Ficheros = Objeto_Ficheros.GetFolder(ThisWorkbook.Path & "\")
Set Ficheros = Lista_Ficheros.Files

ThisWorkbook.Worksheets("Hoja1").Cells.ClearConten ts
For Each Fichero In Ficheros
If Right(Fichero.Name, 4) = ".xls" And Fichero.Name <> "1000XLS.xls" Then
FILA = FILA + 1
Workbooks.Open Filename:=ThisWorkbook.Path & "\" & Fichero.Name
ThisWorkbook.Worksheets("Hoja1").Cells(FILA, 1) = Workbooks(2).ActiveSheet.Cells(13, 8)
ThisWorkbook.Worksheets("HOJA1").Cells(FILA, 2) = Fichero.Name

next
End Sub


Lo que queria hacer es en la linea donde pone
ThisWorkbook.Worksheets("HOJA1").Cells(FILA, 2) = Fichero.Name

en vez de escribir el nombre del fichero, me ponga un hipervinculo.

Muchas gracias por vuestra ayuda.

Saludos a todos