Excel - Crear macro que asigne hipervinculo

Dim fileToOpen As Variant

fileToOpen = Application.GetOpenFilename("Archivos de texto (*.txt), *.txt")

If False = fileToOpen Then Exit Sub

MsgBox CStr(fileToOpen)

Private Sub CommandButton2_Click()

On Error Resume Next

OpenFileDialog1.DialogTitle = "Favor Escoja un Archivo"

'Esto depende de como manejaras lo de las imagenes las vas a indexar directo en el folder o las vas a copiar a otra ruta en todo caso

'La siguieten linea te da el nombre donde estaran tus archivos.

OpenFileDialog1.Filter = "*.txt" ' el tipo de archivo que quieras comenta si no es

OpenFileDialog1.InitDir = "C:\" ' o la direccion donde estan los Scaneos....

'Esto es para que salgan los archivos segun el tipo

OpenFileDialog1.ShowOpen

If OpenFileDialog1.Filename <> "" Then

    'MsgBox OpenFileDialog1.Filename

    Range(Me.RefEdit1.Value).Select

    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=OpenFileDialog1.Filename, TextToDisplay:="Comprobante" ' o lo que quieras que te diga....

    RefEdit1.Value = ""

Else

    MsgBox "No ha Elegido Archivo"

End If

End Sub