Hipervinculo hacia la celda

[CarlosKurt]

Hola a tod@s.

Agradezco de antemano su tiempo y respuesta a los siguiente.

En la hoja "RESUMEN" se encuentran los códigos de clientes y en las siguientes hojas se nombran cada código de cliente. Entonces lo que se requiere es que, por ejemplo, que en la hoja "A 030-028" se crea un hipervínculo hacia la hoja "RESUMEN", PERO con dirección hacia la celda A4 ya que es el nombre de la hoja "A 030-028". Y así sucesivamente con las demás hojas. Lo haría manualmente pero son mas de 800 hojas. Creo que esto solo se puede lograr con Macros, pero si hay la posibilidad de realizar sin ello estaría perfecto.

Saludos

PRUEBA.xlsx

[Antoni]

Sub LinkToResumen()
Application.ScreenUpdating = False
For Each hoja In Sheets
   If Not hoja.Name = "RESUMEN" Then
      Set cliente = Sheets("RESUMEN").Columns("A").Find(hoja.Name, , , xlWhole)
      If Not cliente Is Nothing Then
         hoja.Hyperlinks.Add Anchor:=hoja.Range("A1"), Address:="", _
            SubAddress:="RESUMEN!" & cliente.Address, TextToDisplay:="RESUMEN"
      End If
   End If
Next
Application.ScreenUpdating = True
End Sub

 

[CarlosKurt]

Hace 11 horas, Antoni dijo:

Sub LinkToResumen()
Application.ScreenUpdating = False
For Each hoja In Sheets
   If Not hoja.Name = "RESUMEN" Then
      Set cliente = Sheets("RESUMEN").Columns("A").Find(hoja.Name, , , xlWhole)
      If Not cliente Is Nothing Then
         hoja.Hyperlinks.Add Anchor:=hoja.Range("A1"), Address:="", _
            SubAddress:="RESUMEN!" & cliente.Address, TextToDisplay:="RESUMEN"
      End If
   End If
Next
Application.ScreenUpdating = True
End Sub

 

Hola @Antoni, estoy muy agradecido por tu respuesta y tiempo.
Doy por terminado el tema

Saludos.