ошибка кода excel vba Блокировать, если без конца, если

Question

Я получаю сообщение об ошибке с этим кодом. пожалуйста, помогите. этот код предназначен для того, чтобы скрыть n и не скрыть набор строк, которые не соответствуют определенным критериям

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$q$2" Then
    BeginRow = 8
    EndRow = 460
    ChkCol = 13

    For RowCnt = BeginRow To EndRow
        If Cells(RowCnt, ChkCol).Value < Cells(2, 19) Then
            Cells(RowCnt, ChkCol).EntireRow.Hidden = True
        Else
            Cells(RowCnt, ChkCol).EntireRow.Hidden = False
        End If
    Next RowCnt
End Sub
End If
End Sub

Answer 1

Просто удалите первый

End Sub

(строка перед End If)

ИЗМЕНИТЬ # 1:

также замените:

$q$2

на:

$Q$2