Llevemos la Macro para enumerar todas las hojas de un libro de trabajo un paso más allá y creamos un menú con hipervínculos para cada hoja . Este es un gran ahorro de tiempo para alguien que tiene muchas hojas y está tratando de crear un menú de hipervínculos a cada una manualmente.

Cómo iniciar

Para iniciar, simplemente reemplace la palabra Hoja1 (aparece dos veces) en el código con el nombre de la pestaña donde le gustaría ver los resultados. Asegúrese de que no haya información importante en la pestaña de salida porque borra los datos antes de escribir en ella. Una vez que se ejecuta la macro, se crea una lista de cada hoja con un hipervínculo a cada hoja.

Código

Sub Indice()
'Declaramos variables
Dim WS As Worksheet
Dim A As Integer
A = 1

'Borramos la información de la columna A
Sheets("Hoja1").Range("A:A").Clear

'Creamos un Hipervinculo por cada Hoja del libro
For Each WS In Worksheets
Sheets("Hoja1").Cells(A, 1).Select
ActiveSheet.Hyperlinks.Add _
Anchor:=Selection, Address:="", SubAddress:= _
WS.Name & "!A1", TextToDisplay:=WS.Name
A = A + 1

Next WS

End Sub

Conoce nuestra tienda

Ver más productos

Mejora tu nivel y logra tus objetivo

Excel

Access

Power BI

Ayúdanos a hacer crecer el proyecto