Ocultar hojas

hola, Savrinor !

Para ocultar una hoja, utilizo el siguiente codigo, me interesaria poder ocultar varias hojas:
Private Sub Workbook_Open()
Worksheets("hoja1").Visible = xlSheetVeryHidden
End Sub

op1:
Worksheets(Array("hoja1", "hoja4", "hoja5")).Visible = False

op2:
Worksheets(Array("hoja1", "hoja4", "hoja5")).Select
ActiveWindow.SelectedSheets.Visible = False

nota: REQUIERE que TODAS las hojas esten [previemente] 'VISIBLES'
y... NO se puede usar la propiedad 'xlSheetVeryHidden' :-((

op3: usando un bucle 'For...Next' [incluso para mostrarlas de nuevo]... +/- como sigue:
Dim Hoja As Worksheet
For Each Hoja In Worksheets(Array("hoja1", "hoja4", "hoja5"))
Hoja.Visible = xlSheetVeryHidden
Next

saludos,
hector.

Gracias Hector Miguel.

"Héctor Miguel" escribió en el mensaje
news:

hola, Savrinor !

Para ocultar una hoja, utilizo el siguiente codigo, me interesaria poder
ocultar varias hojas:
Private Sub Workbook_Open()
Worksheets("hoja1").Visible = xlSheetVeryHidden
End Sub

op1:
Worksheets(Array("hoja1", "hoja4", "hoja5")).Visible = False

op2:
Worksheets(Array("hoja1", "hoja4", "hoja5")).Select
ActiveWindow.SelectedSheets.Visible = False

nota: REQUIERE que TODAS las hojas esten [previemente] 'VISIBLES'
y... NO se puede usar la propiedad 'xlSheetVeryHidden' :-((

op3: usando un bucle 'For...Next' [incluso para mostrarlas de nuevo]...
+/- como sigue:
Dim Hoja As Worksheet
For Each Hoja In Worksheets(Array("hoja1", "hoja4", "hoja5"))
Hoja.Visible = xlSheetVeryHidden
Next

saludos,
hector.