Cuestión : Error - método visible de la hoja de trabajo del objeto fallada

En el recorte de código abajo estoy intentando ocultar todas las hojas a excepción de la que está llamada “jane_sheet”.  El problema es que el libro de trabajo está omitido para abrirse con todas las hojas ocultadas a excepción de la página de recibimiento que se define como esto:
Const WelcomePage = “recepción”. el
I piensa que estoy consiguiendo el error porque está intentando ocultar la página de recibimiento primero y entonces el unhide el “jane_sheet” y él no puede hacer que porque la ocultación de la página de recibimiento primero no dejaría ninguna hojas visible.  ¿Ideas en cómo puedo cambiar esto?  ¡Gracias! class= > " claro " del

> del " codeSnippet " del class= del

class= " lineNumbers " del

class= del

1: 2: 3: 4: 5: 6:

>Case notpretty LCase (“jane” " del class= " del id= " codeSnippet858723 del

class= del

Respuesta : Error - método visible de la hoja de trabajo del objeto fallada

Caso LCase (“jane”)
Hojas (“jane_sheet”). Visible = xlSheetVisible
Para cada WS en ThisWorkbook.Worksheets
Si LCase (WS. Nombre) <> LCase (“jane_sheet”) entonces
WS. Visible = xlSheetVeryHidden
Terminar si
Después