Listar Hojas

Written by Hector Miguel. Posted in Ordenar

Válida para todas las versiones de office 97-2007

Listar mis hojas en Excel

Por Héctor Miguel Orozco Díaz

¿Cómo podemos obtener un listado de nuestras hojas?

Muchas veces hemos tenido la necesidad de movernos entre las hojas de un libro de Excel y hemos visto que es un fastidio el tener que ir a la barra de estado de las hojas, click derecho, etc..., ufhhhh!! demasiado esfuerzo, ya que lo que buscamos a la hora de trabajar es ahorrarnos tiempo y complicaciones. Con el siguiente procedimiento insertado en un módulo estándar de VBA de Excel, podremos disponer de un listado de vuestras hojas del libro para movernos con tan solo un click.

Sub ListaHojas(): On Error GoTo DoNothing
  Debug.Print ActiveSheet.Type
  With Application.CommandBars("workbook tabs").Controls(16)
    If Right(.Caption, 3) = "..." Then .Execute Else .Parent.ShowPopup
  End With
DoNothing:
End Sub

 

Print