excel vba code error Block if without end if

Question

I get the subject error with this code. pls help. this code is for hiding n un-hiding a set of rows which are below a certain criteria

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

What's with the extra End Sub?

BigBen
– BigBen

2020-06-18 14:36:52 +00:00
Commented Jun 18, 2020 at 14:36 — BigBen
– BigBen, Commented Jun 18, 2020 at 14:36
you have two End Sub in there.

Scott Craner
– Scott Craner

2020-06-18 14:36:54 +00:00
Commented Jun 18, 2020 at 14:36 — Scott Craner
– Scott Craner, Commented Jun 18, 2020 at 14:36

Gary's Student · Accepted Answer · 2020-06-18 15:15:34Z

1

Just remove the first

End Sub

( the line before the End If)

EDIT#1:

also replace:

$q$2

with:

$Q$2

edited Jun 18, 2020 at 15:15

answered Jun 18, 2020 at 14:37

Gary's Student

96.9k10 gold badges66 silver badges104 bronze badges

Sign up to request clarification or add additional context in comments.

2 Comments

saurabh Over a year ago

thanks for the reply. doing this doesnt autorun the code when the value of Q2 cell changes

Gary's Student Over a year ago

@saurabh See my EDIT#1

Collectives™ on Stack Overflow

excel vba code error Block if without end if

1 Answer 1

2 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

2 Comments

Your Answer

Sign up or log in

Post as a guest

Related