Crear enlaces a las hojas Excel

Si nuestro libro Excel contiene muchas hojas (hasta 256) convendría hacer una lista de enlaces a cada hoja. Esto puede ayudar mucho a los 'navegantes' de nuestros libros.

Y como siempre, esta lista se puede crear manualmente. O se puede recurrir a una macro de VBA, cual tardará al máximo un par de segundos para concluir el trabajo.

Procedimiento

Empezamos con un libro Excel cualquier, pero que tenga por lo menos dos hojas. Luego vamos a crear un módulo dentro de este libro. En este módulo escribimos el código.

Sub Links_hojas()

Dim wrbLibro As Workbook
Dim wrsHojaActiva As Worksheet, wsHoja As Worksheet
Dim intFila, intColumna As Integer

Set wrbLibro = ActiveWorkbook
Set wrsHojaActiva = ActiveSheet

'en que fila/columna empezar la lista
intFila = 4
intColumna = 1

'el bucle repasa todas las hojas
For Each wsHoja In wrbLibro.Worksheets

'para excluir hoja de los links
If wsHoja.Name = "Hoja4" Then GoTo ProxHoja

'crear links
If wsHoja.Name <> wrsHojaActiva.Name Then

wrsHojaActiva.HyperLinks.Add wrsHojaActiva.Cells(intFila, intColumna), _
"", SubAddress:="'" & wsHoja.Name & "'!A1", TextToDisplay:=wsHoja.Name

intFila = intFila + 1
End If

ProxHoja:
Next wsHoja

End Sub