Mostrar y ocultar hojas v.2

hola Patricio,

mientras llega Hector Miguel,

prueba a poner en el evento Activate de las hojas alguna instruccion que
haga lo que pides.

Esta es una posibilidad usando Wait, pero quizas te fuera mejor probar con
OnTime, pues wait paraliza una buena parte de los procesos

''en el evento Open de ThisWorkbook ocultas la hoja
Private Sub Workbook_Open()
TuHojaOculta.Visible = xlSheetVeryHidden
End Sub

''en activate de cada hoja llamas a la macro
Private Sub Worksheet_Activate()
Call verHoja(TuHojaOculta)
End Sub

''procedimiento para mostrar la hoja 2 segundos
''(oculta las etiquetas de la hoja, pero tambien las del resto)
Sub verHoja(ByRef hoja As Worksheet)
With hoja
.Visible = xlSheetVisible: .Activate
ActiveWindow.DisplayWorkbookTabs = False
With Application
.EnableEvents = False
.Wait (Now + TimeValue("00:00:02"))
hoja.Visible = xlSheetVeryHidden
.EnableEvents = True
End With
ActiveWindow.DisplayWorkbookTabs = True
End With
End Sub


echale un vistazo, y si quieres comentas

un saludo
Ivan

"Patricio" escribió en el mensaje
news:

Hola a todos.

(ya que nadie me dio solucion la primera vez, vuelvo a hacer la
pregunta...)

Como puedo hacer para mostrar y ocultar una hoja1, cada vez cambie de
hoja2,
hoja3, hoja4 etc. por ejemplo si estoy en la hoja2 y cambio a la hoja3,
aparesca la hoja1 un par de segundos y luego desaparesca, y si cambio de
la 3
a la 4 ó de la 4 a la 2 lo mismo q aparesca la hoja1 y desaparesca, pero q
siempre se mantenga oculta la viñeta. Si alguien sabe como hacerlo, se lo
agradeceria.

Patricio
Santiago-Chile

P.D. Hector Miguel, donde estas.