what is wrong with this macro? keep getting error alerts popping up

[donggri84]

I haven't created this macro and I'm a real newb with coding so I don't really know what part of this is incorrect that I keep getting error alerts
Could anyone help?

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("B23:HN23")) Is Nothing Then
If UCase(Target.Value) = "SAMPLE" Then
    MsgBox ("Please fill the next column!")
End If
End Sub

Error says "Block if without end if"
I have no idea what that means

Thank you
kind regards

 

[RoryA]

It basically means what it says - you have two If... statements but only one closing End If - you need two:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("B23:HN23")) Is Nothing Then
    If UCase(Target.Value) = "SAMPLE" Then
        MsgBox ("Please fill the next column!")
    End If
End If
End Sub

 

[donggri84]

It basically means what it says - you have two If... statements but only one closing End If - you need two:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("B23:HN23")) Is Nothing Then
    If UCase(Target.Value) = "SAMPLE" Then
        MsgBox ("Please fill the next column!")
    End If
End If
End Sub

Ahhhh!!!!
Thank you so much!