VBA: Un hipervínculo con macros de Excel.

Recientemente un usuario realizaba una consulta sobre la manera de construir una macro que convirtiera el valor de una celda en un hipervícunlo hacia un fichero localizado en una carpeta de nuestro Pc.

...Quiero hacer una macro que coja el nombre que tengo escrito en una celda y le haga un hipervínculo a un achivo que habrá en una carpeta "X2" dónde habrá un archivo con el mismo nombre que yo he puesto en la celga (.html); [...] de manera que sólo active el hipervínculo en caso que la celda activa esté en la columna X ó Y...

Hace ya un año expliqué un planteamiento similar, pero utilizando sólo las herramientas estándar, la función HIPERVINCULO y la Validación de datos (ver entrada). Sin embargo, hoy aplicaremos un método bastante sencillo en nuestro procedimiento, el objeto Hyperlinks, en concreto con el método Add:
expresión.Add(Anchor, Address, SubAddress, ScreenTip, TextToDisplay)

El código que insertaremos en la Hoja1 (en la hoja donde queramos se ejecute) del Explorador de proyectos del Editor de VBA, formando nuestra macro de Excel, con un evento SelectionChange, quedando:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'verificamos que sólo actue si nos encontramos en las columnas X ó Y
If Not Intersect(Target, Range("X:Y")) Is Nothing Then
'asignamos variables a la ruta de nuestro equipo
ruta = "E:\excelforo\"
'y asignamos como nombre del fichero a vincular el nombre de la celda seleccionada
fichero = Target.Value
direccion = ruta & fichero
    'depuramos posibles errores, en caso que la celda está vacía salimos de la rutina
    If Target.Value = "" Then
    Exit Sub
    Else
    'si la celda tiene algún valor, lo convertimos en un hipervínculo
    'relacionándolo con el fichero situado en la carpeta y con nombre especificado.
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=direccion, TextToDisplay:=fichero
    End If
End If

End Sub

Estaríamos listos para comprobar su funcionamiento. Para cualquier celda con valor en la columna X ó Y, de la Hoja1, se convierte en un hipervínculo que relaciona con el fichero del mismo nombre que el valor de la celda, localizado en la carpeta E:\excelforo\ (en mi ejemplo).