Tengo una hoja de cálculo presentada así:

A        B            C
12       Row1         Click to Hide
12       Row2         Click to Hide
5        Row3         Click to Hide
4        Row4         Click to Hide
12       Row5         Click to Hide

Estoy usando el siguiente código vba para tratar de ocultar todas las filas que comparten el mismo número (en la Columna A) que la fila ActiveCell en la que el usuario ha hecho clic para ocultar.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(ActiveCell, Range("C:C")) Is Nothing And ActiveCell.Value = "Click to Hide" Then


Dim Cell As Range

Application.ScreenUpdating = False

Range("A4").End(xlDown).Select


For Each Cell In Range(ActiveCell, "A4")
Cell.EntireRow.Hidden = ActiveCell.Offset(0, -2)

Next
Application.ScreenUpdating = True



End If

End Sub

Entonces, por ejemplo, si un usuario hace clic en 'Hacer clic para ocultar' en la columna C en la Fila1, todas las filas con el número 12 en la columna A deben estar ocultas.

En el momento en que recibo un código de error, 1004 desplazamiento del objeto o rango falló. Por favor, ¿alguien puede mostrarme dónde me estoy equivocando? Gracias por adelantado.