Crear hipervínculo Userform

Hola y gracias por adelantado,

Tengo un UserForm que introduce datos en una tabla(nombre, direcci) en el que tengo un ón,etc..) tengo en el User un botón que me abre un archivo PDF con el presupuesto emitido y la extensión se copia en una celda con este código:

Private Sub Agregar_PDF_Click()
ArchivoPDF = Application.GetOpenFilename("*.pdf, *.pd*", 0, "Archivos PDF")
txt_docpdf = ""
txt_docpdf = ArchivoPDF
End Sub

El problema es que en la celda me aparece donde esta guardado el archivo y lo que querría es que en la celda apareciera como un Hipervínculo que al pulsar te abriera el archivo y que lo hiciera para todo la columna de la tabla donde se introducen los datos. He probado con ActiveSheet.Cells(1, "N").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
<span class="scayt-misspell" data-scaytid="2353" data-scayt_word="lstFotos">lstFotos</span>.Text, TextToDisplay:=lstFotos.Text
End Sub

pero solo lo hace para la celda N1 y necesito que lo haga cada vez que introduzco un dato, es decir a todo la Columna.