Ocultar / Mostrar filas

Tengo una hoja excel en la que, mediante el valor de un ComboBox, necesito ocultar o mostrar determinada informacion.
Lo que he hecho es que en base a ese valor, oculto / muestro las filas que me interesan con el siguiente codigo:

' Activar
ThisWorkbook.ActiveSheet.Range("A12:A17").Select
Selection.RowHeight = 15
ThisWorkbook.ActiveSheet.Range("A18:A18").Select
Selection.RowHeight = 6

' Desactivar
ThisWorkbook.ActiveSheet.Range("A12:A18").Select
Selection.RowHeight = 0

Mi problema es que esto me esta dando un rendimiento bastante lento
y el archivo tarda medio minuto o asi en ocultar y mostrar las filas que correspondan cada vez.
Querria saber si hay alguna manera mas rapida de hacer esto.

hola, Daniel !

por codigo puedes evitar el uso de instrucciones que hacen (efectivamente) una seleccion de objetos
para poder "trabajar" con sus metodos y propiedades, prueba con algo +/- como lo siguiente:
(deja el alto de las filas sin modificar por el codigo)

' Activar
ThisWorkbook.ActiveSheet.Range("a2:a18").EntireRow.Hidden = False

' Desactivar
ThisWorkbook.ActiveSheet.Range("a2:a18").EntireRow.Hidden = True

saludos,
hector.

__ la consulta original __
> Tengo una hoja excel en la que, mediante el valor de un ComboBox, necesito ocultar o mostrar determinada informacion.
> Lo que he hecho es que en base a ese valor, oculto / muestro las filas que me interesan con el siguiente codigo:
>
> ' Activar
> ThisWorkbook.ActiveSheet.Range("A12:A17").Select
> Selection.RowHeight = 15
> ThisWorkbook.ActiveSheet.Range("A18:A18").Select
> Selection.RowHeight = 6
>
> ' Desactivar
> ThisWorkbook.ActiveSheet.Range("A12:A18").Select
> Selection.RowHeight = 0
>
> Mi problema es que esto me esta dando un rendimiento bastante lento
> y el archivo tarda medio minuto o asi en ocultar y mostrar las filas que correspondan cada vez.
> Querria saber si hay alguna manera mas rapida de hacer esto.