Ya he creado una macro que me permite hacer doble clic en un hipervínculo y muestra información de otra hoja en función de la celda en la que he hecho clic.

Ahora me gustaría automatizar el proceso de hipervínculos, lo que necesito es una macro que tomará una lista de nombres e hipervinculará todas esas celdas a sí mismos. hasta ahora tengo una macro que hipervincula la celda activada pero devuelve un valor de 0 pero está hipervinculada (primer conjunto de código)

Incluiré la macro que grabé agregando manualmente la macro también

Sub HyperLinkME()

frmla = "=HYPERLINK(" + Chr(34) + "#'" + ActiveSheet.name + "'!" +ActiveCell.Address + Chr(34) + "," + ActiveCell.Address + ")"
ActiveCell.Formula = frmla

End Sub

La macro que grabé es la siguiente:

Sub ManualHyperlink()
'
' ManualHyperlink Macro
'
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
    "Schedule!A3", TextToDisplay:="dale"
End Sub

¡Gracias de antemano por cualquier ayuda!