Modificar código para ocultar filas

Hola: Prueba esto:

Sub Macro1()
On Error Resume Next ''' Por si acaso la celda activa > 20
Rows(ActiveCell.Row & ":20").RowHeight = 0
End Sub

Saludos

escribió en...
Este es el código que quiero modificar:

Sub Macro1()
ActiveCell.Rows("1:1").EntireRow.Select
Rows("10:20").Select
Selection.RowHeight = 0
End Sub

Lo que hace es ocultar las filas 10 a 20 (altura igual a cero)
Pero lo que necesito es que oculte desde la fila que tiene la celda
activa, hasta la fila 20.
Por eso he metido la primera línea de código, que ya selecciona la
fila de la celda activa.
Pero de nada me vale porque la segunda línea del código selecciona
desde la 10 a la 20.

Tendría que modificar el 10 de la segunda línea, para que no sea un
valor absoluto, sino relativo (desde la fila activa...)

Saludos.

escribió en el mensaje

Este es el código que quiero modificar:

Sub Macro1()
ActiveCell.Rows("1:1").EntireRow.Select
Rows("10:20").Select
Selection.RowHeight = 0
End Sub

Lo que hace es ocultar las filas 10 a 20 (altura igual a cero)
Pero lo que necesito es que oculte desde la fila que tiene la celda
activa, hasta la fila 20.
Por eso he metido la primera línea de código, que ya selecciona la
fila de la celda activa.
Pero de nada me vale porque la segunda línea del código selecciona
desde la 10 a la 20.

Tendría que modificar el 10 de la segunda línea, para que no sea un
valor absoluto, sino relativo (desde la fila activa...)

Hola

A ver si esto te vale

Sub OcultaFilas()
Range(ActiveCell, Rows(20)).EntireRow.Hidden = True
End Sub

Gracias por las dos respuestas.
Al final me vale una combinación de ambas:

Range(ActiveCell, Rows(20).RowHeight = 0

Saludos