worksheet_change not working

[Nichole09]

Can anyone tell me why this code wont work? Its working once with only I26, and I have entered Application.EnableEvents = True in the immediate window, and keep saving and closing and reopening to see if that will help make it work. I am not sure why its working only with I26?
Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False

Dim R As String
R = "Received"

If Intersect(Target, Range("e37")) Is Nothing Then
Exit Sub
Else
Range("i26").Value = R
End If


If Intersect(Target, Range("h37")) Is Nothing Then
Exit Sub
Else
Range("i24").Value = R
End If


If Not Intersect(Target, Range("L37")) Is Nothing Then
Exit Sub
Else
Range("i28").Value = R
End If

Application.EnableEvents = True

End Sub

 

[Norie]

Here you tell VBA to exit the sub if Target is not E37 so the subsequent code is never reached.

If Intersect(Target, Range("e37")) Is Nothing Then
    Exit Sub ' if Target is not E37 exit the sub
Else
    Range("i26").Value = R
End If

 

[Nichole09]

Thank you Norie. I think, I might understand. Hopefully..... should this be correct?

Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Dim R As String
R = "Received"
If Not Intersect(Target, Range("e37")) Is Nothing Then
Exit Sub
Else
Range("i26").Value = R
End If
 

If Not Intersect(Target, Range("h37")) Is Nothing Then
Exit Sub
Else
Range("i24").Value = R
End If
 
 
If Not Intersect(Target, Range("L37")) Is Nothing Then
Exit Sub
Else
Range("i28").Value = R
End If
Application.EnableEvents = True
End Sub

[code]