2 conditions in Worksheet_Change sub

[BMD44]

Hello,

I have a requirement where in a message needs to be displayed based on the cell value in the sheet which works as expected which is below.

Now, I need another check and message to be displayed based on a different cell value when the value changes which is the second section of the code that doesn't work. Can anyone please suggest how can we have multiple checks in Worksheet_Change Sub.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$2" Then
        If Target.Value = "Yes" Then
            MsgBox "Check required."
        ElseIf Target.Value = "No" Then
            MsgBox "Check not required"
        End If
    End If

  If Target.Address = "$E$2" Then
        If Target.Value = "Yes" Then
            MsgBox "Total > 500"
        ElseIf Target.Value = "No" Then
            MsgBox "Total < 500"
        End If
    End If
   
End Sub

 

[Alex Blakenburg]

See if doing it this way works for you:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$2" Then
        If Target.Value = "Yes" Then
            MsgBox "Check required."
        ElseIf Target.Value = "No" Then
            MsgBox "Check not required"
        End If
    End If

  If Not Intersect(Target, Range("E6:E500")) Is Nothing Then
        If Range("E2").Value = "Yes" Then
            MsgBox "Total > 50000"
        ElseIf Range("E2").Value = "No" Then
            MsgBox "Total < 50000"
        End If
    End If
   
End Sub