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