como mostrar hojas ocultas?

hola:

tengo problemas para ver unas hojas, las cuales estan ocultas use esto
pensando que serviria pero tengo el office 2007 y me da un error, el
codigo que use es este:


'-Inicio Codigo-
Sub MostrarHojas ()
Application.ScreenUpdating=False
For Each hoja In ActiveWorkbook.Sheets
hoja.Visible = True
Next hoja
Application.ScreenUpdating=True
End Sub
'-Fin Codigo-



el error es:
se ha producido el error`1004` en tiempo de ejecucion:
no se puede asignar la propiedad visible de la clase dialogsheet

aqui les dejo un link poa que bajen el documento

http://rapidshare.com/files/2359457...R.xls.html

gracias

Si te marca ese mensaje es por que posiblemente ya tiene la propiedad
visible = true asiganda

Saludos

"djurcich" escribió en el mensajenews:



> hola:

> tengo problemas para ver unas hojas, las cuales estan ocultas use esto
> pensando que serviria pero tengo el office 2007 y me da un error, el
> codigo que use es este:

> '-Inicio Codigo-
> Sub MostrarHojas ()
> Application.ScreenUpdating=False
> For Each hoja In ActiveWorkbook.Sheets
> hoja.Visible = True
> Next hoja
> Application.ScreenUpdating=True
> End Sub
> '-Fin Codigo-

> el error es:
> se ha producido el error`1004` en tiempo de ejecucion:
> no se puede asignar la propiedad visible de la clase dialogsheet

> aqui les dejo un link poa que bajen el documento

>http://rapidshare.com/files/2359457...R.xls.html

> gracias- Ocultar texto de la cita -

- Mostrar texto de la cita -