У меня есть электронная таблица, выложенная так:

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

Я использую следующий код VBA, чтобы попытаться скрыть все строки, которые имеют тот же номер (в столбце A), что и строка activeCell, которую пользователь щелкнул, чтобы скрыть.

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

Например, если пользователь щелкает «Click to Hide» в столбце C на строке 1, все строки с номером 12 в столбце A должны быть скрыты.

В настоящее время я получаю код ошибки, 1004 смещение объекта или диапазона не удалось. Пожалуйста, может кто-нибудь показать мне, где я иду не так? Заранее спасибо.