Ocultar un rango según la selección del usuario: consejos de Excel

Mike pregunta:

En mi libro de trabajo, si una casilla de control no está marcada, me gustaría ocultar filas y columnas específicas automáticamente con VBA. ¿Cómo se hace esto? Gracias.

Al ser una casilla de verificación de Control, tendría un código que se ve así:

Private Sub CheckBox1_Click() ActiveCell.Select Rows(15).Hidden = CheckBox1 End Sub

La primera parte es para evitar un error SI está utilizando Excel 97. La segunda línea es un SI "mejorado", se podría hacer así:

If CheckBox1 = True then Rows(15).Hidden = True Else Rows(15).Hidden = False End If 

Pero, ¿por qué escribir tanto?