Mostar filas ocultas mediante una macro

Buenas amigos, tengo una duda, tengo la siguiente macro que es para mostar
un
rango de filas, sin embargo no me funciona, alguien me puede ayudar?

GRACIAS!!

Sub mostrarfilas()
Range("A27").Activate
While ActiveCell.Row <> 36
If ActiveCell.Value = 0 Then
ActiveCell.EntireRow.Show = True
End If
ActiveCell.Offset(1, 0).Activate
Wend
End Sub

Rows("27:132").Select ' rango dentro del cual están las filas ocultas
Selection.EntireRow.Hidden = False





"Doors" escribió en el mensaje de noticias
news:
> Buenas amigos, tengo una duda, tengo la siguiente macro que es para mostar
> un
> rango de filas, sin embargo no me funciona, alguien me puede ayudar?
>
> GRACIAS!!
>
> Sub mostrarfilas()
> Range("A27").Activate
> While ActiveCell.Row <> 36
> If ActiveCell.Value = 0 Then
> ActiveCell.EntireRow.Show = True
> End If
> ActiveCell.Offset(1, 0).Activate
> Wend
> End Sub
>
>