How to make Warning message depend on two cells.

[DemonX]

I want to generate a warning message when a value is added to E6 cell , when there is already value at E5 cell.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not (Application.Intersect(Range("E5", "E6"), Target) Is Nothing) Then
MsgBox "Do not use both", vbInformation, "Kutools for Excel"
End If
End Sub

I used above and I could not wrap my head around to make this work . Further, it would be so great if E6 raw could be highlighted from red when there is value in E5 and when another value is add in E6 too.

Any assistance is highly appreciated

 

[My Aswer Is This]

Try this:

Private Sub Worksheet_Change(ByVal Target As Range)
'Modified  3/26/2021  12:27:34 PM  EDT
If Target.Cells.CountLarge > 1 Or IsEmpty(Target) Then Exit Sub

If Target.Address = Range("E6").Address Then
    Target.Interior.Color = xlNone
    If Target.Offset(-1).Value <> "" Then
    Target.Interior.Color = vbRed
        MsgBox "Do Not Use Both" & vbNewLine & "Range(""E5"") already has a value", vbInformation
    End If
End If
End Sub