Excel - Hipervincular masivamente archivos '.pdf' en celdas de una columna en excel

Private Sub CommandButton1_Click()

Dim ult, c As Long

'Aqui vas a Definir la Ruta donde estan los PDF en mi caso estan en la carpeta pdf que esta en

'El directorio donde esta el Archivo Excel.

'Set temporal = "C:\ArchiosPDFO lo QUE SEA \"

Set temporal = fs.GetFolder(Application.ActiveWorkbook.Path & "\PDF\")

'Esto es para saber cuantos archivos PDF Existen lo puedes comentar o borrar .......

MsgBox temporal.Files.Count

c = 1

For Each Archivo In temporal.Files

    Range("E" & c).Select

    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _

        "pdf\" & Archivo.Name, TextToDisplay:="ENG"

    MsgBox Archivo.Name

    c = c + 1

 Next Archivo

End Sub