Sub ListaConVinculos()
Dim Ruta As String, Archivo As String, ArchivoComplet As String
i = 4 'Para iniciar la lista en la línea 4
'Definición del directorio activo que contiene los archivos
Ruta = ThisWorkbook.Path
Archivo = Dir(Ruta & "\*.*")
'Establece el título
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "LISTA DE LOS ARCHIVOS DEL DIRECTORIO ACTIVO"
    Selection.Font.Bold = True
'Realización de un bucle por todos los archivos de la carpeta
' con inscripción del nombre del archivo en una celda
' y asociación de un vínculo
    Do While Len(Archivo) > 0
        ArchivoComplet = Ruta & "\" & Archivo
        Range("A" & i).Select
        ActiveCell.Value = Archivo
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=ArchivoComplet, TextToDisplay:=Archivo
        Archivo = Dir()
        i = i + 1
    Loop
' Ajuste de la longitud de la columna A
    Columns("A:A").EntireColumn.AutoFit
End Sub