Excel - Convertir un valor de texto en un HIPERVÍNCULO a un objeto del mismo libro.

Range("A1000000").End(xlUp).Offset(2, 2).Select

ActiveCell.Value = "* QUIZÁS SEA RECOMENDABLE QUE LEA EL APARTADO C) DE LAS MEDIDAS ESPECIALES DE SEGURIDAD QUE FIGURAN EN EL USERFORM DE 'AYUDA Y RECOMENDACIONES'"

ActiveCell.Offset(1, 0).Value = "(Si quiere leerlas haga clic aquí)"

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    If Target.Text = "(Si quiere leerlas haga Doble Clic aquí)" Then UserForm1.Show

End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

    If Target.Text = "(Si quiere leerlas haga clic derecho aquí)" Then UserForm1.Show

End Sub