Ocultar hojas con funcion

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
_____________________________