Mostrar nombre de Hojas Ocultas

.27.04.17

Buenas tardes,

Prueba con la siguiente rutina que muestra sus nombre en un mensaje.

Accede al Editor de VBA (Atajo: Alt + F11), allí inserta un módulo (Insertar-Módulo) y pega el siguiente código:

Sub ListOcult()
For Each LaHoja In Sheets
If LaHoja.Visible = False Then
    LasHojas = LasHojas & Chr(10) & LaHoja.Name
    Cont = Cont + 1
End If
Next
ElMensaje = IIf(Cont = 0, "NO HAY HOJA OCULTA ALGUNA, en este libro:" & Chr(10) & ActiveWorkbook.Name, "Se encontraron: " & Cont & " hoja" & IIf(Cont > 1, "s", "") & " oculta" & IIf(Cont > 1, "s", "") & Chr(10) & "en el libro " & ActiveWorkbook.Name & Chr(10) & Chr(10) & IIf(Cont > 1, "Ellas son:", "Ella es:") & Chr(10) & LasHojas)
TipoMens = IIf(Cont = 0, vbCritical, vbInformation)
ElTitulo = IIf(Cont = 0, "SIN HOJAS OCULTAS", "HOJAS OCULTAS: " & Cont)
Application.ScreenUpdating = True
MsgBox ElMensaje, TipoMens, ElTitulo
End Sub

.

¡Gracias! 

Hola Fernando

Tu macro es precisamente la solución  de lo que buscaba y con respecto a la contribución te lo agradezco de nuevo ya que anteriores veces he tenido tu apoyo (T.E.)

Gracias y Saludos

.

Muy bien! Me alegro de haberte ayudado (de nuevo).

Ya sabes que deberías valorizar la calidad de mi respuesta (con las opciones del botón inferior) para dar por finalizada esta pregunta.

Un abrazo

Fer

.