Botón para pasar a la siguiente hoja del libro

Hola Ángel.

La siguiente macro te soluciona este problema,
preguntándose si la siguiente hoja está oculta. Utilizo el
orden de las hojas captado por activesheet.index para
crear un bucle hasta la siguiente visible.


Sub seleccionar_siguiente_hoja_visible()
estahoja = ActiveSheet.Index
If ActiveSheet.Next.Visible = True Then
ActiveSheet.Next.Activate
Else
While Sheets(estahoja + 1).Visible = False
estahoja = estahoja + 1
Wend
Sheets(estahoja).Activate
End If
End Sub

Saludos,


Benito Merino

Tengo que tener un botón en cada hoja del libro que sea
pasar a la siguiente hoja, pero no siempre el orden de
las hojas va a ser el mismo pues algunas hojas bajo
determinadas circunstancias pueden estar ocultas. Cómo
hago para decirle que pase a la siguiente Hoja del libro
sin saber cual puede ser la siguiente hoja?????

.