Ocultar hojas con funcion

Mira si te vale la función un poco cambiada:

Function VerSoloEstaHoja(EstaHoja)
Dim HOJA As Worksheet
For Each HOJA In Sheets
If UCase(HOJA.Name) <> UCase(EstaHoja) Then HOJA.Visible = False
Next HOJA
Sheets(EstaHoja).Select
End Function


Un saludo.


Fernando Arroyo
MS MVP - Excel

"Rodrigo" escribió en el mensaje news:%

Hola amigos tengo una funcion de lo mas simple, se trata de hacer invisibles
todas las hojas de un libro, dejando visible la que le mando por refereccia
a la funcion y dice asi:
Function VerSoloEstaHoja(EstaHoja)
On Error Resume Next
Dim HOJA As Worksheet
For Each HOJA In Sheets
HOJA.Visible = False
Next HOJA
Sheets(EstaHoja).Visible = True
Sheets(EstaHoja).Select
End Function

Esta demasiado sencilla sin embargo por alguna razon no hace lo que
requiero, deja visible la que le "paso" mas una, la que esta al final de
izquierda a derecha, en el orden de las hojas.
Sugerencias..

_____________________________
Rodrigo
_____________________________

Ok fernando gracias funciono solo que me marcaba "error en metodo visible
para worksheets", segun yo es porke ya la hoja estaba oculta asi que
anidando la funcion para hacer todas las hojas visibles con eso funciono.
Gracias.


_____________________________
Rodrigo Bustos Aguilar
_____________________________

"Fernando Arroyo" escribió en el mensaje
news:#
Mira si te vale la función un poco cambiada:

Function VerSoloEstaHoja(EstaHoja)
Dim HOJA As Worksheet
For Each HOJA In Sheets
If UCase(HOJA.Name) <> UCase(EstaHoja) Then HOJA.Visible = False
Next HOJA
Sheets(EstaHoja).Select
End Function


Un saludo.


Fernando Arroyo
MS MVP - Excel

"Rodrigo" escribió en el mensaje
news:%

Hola amigos tengo una funcion de lo mas simple, se trata de hacer

invisibles

todas las hojas de un libro, dejando visible la que le mando por

refereccia

a la funcion y dice asi:
Function VerSoloEstaHoja(EstaHoja)
On Error Resume Next
Dim HOJA As Worksheet
For Each HOJA In Sheets
HOJA.Visible = False
Next HOJA
Sheets(EstaHoja).Visible = True
Sheets(EstaHoja).Select
End Function

Esta demasiado sencilla sin embargo por alguna razon no hace lo que
requiero, deja visible la que le "paso" mas una, la que esta al final de
izquierda a derecha, en el orden de las hojas.
Sugerencias..

_____________________________
Rodrigo
_____________________________