Hipervínculos con macro en excel
El siguiente macro crear hipervínculos dentro de la misma hoja. El asunto es que debo ir agregando más hojas con otros nombres pero este macro que utilizo define el nombre de la hoja: Selection. Hyperlinks(1).SubAddress = "JLINARES!B33"
Quiero encontrar la manera para que en vez de que aparezca JLINARES(que es el nombre de la hoja donde grabe el macro) sea de otra forma para que yo pueda correr el macro en cualquier otra hoja que yo genere más adelante.
Macro completo:
Sub XD()
'
' XD Macro
'
'
Range("E12").Select
Selection.Copy
Range("F8").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("B12").Select
ActiveWindow.SmallScroll Down:=7
Range("B2").Select
Selection.Hyperlinks(1).SubAddress = "DB!F6"
Range("B12").Select
Selection.Hyperlinks(1).SubAddress = "JLINARES!B33"
Range("C12").Select
Selection.Hyperlinks(1).SubAddress = "JLINARES!B54"
Range("D12").Select
Selection.Hyperlinks(1).SubAddress = "JLINARES!B75"
Range("E12").Select
Selection.Hyperlinks(1).SubAddress = "JLINARES!B96"
...