how to use Intersect

[LFKim2018]

I have a change event sub below and I want to trap changes made on columns A to B only.
How do I use Intersect on this sub?
many thanks

Dim rngLastChange As Range


Private Sub Worksheet_Change(ByVal Target As Range)
    Set rngLastChange = Target
    If [E2] > [F2] Then       
        MsgBox "E2 is greater than F2", vbCritical
        Application.Undo
        Exit Sub
    End If
End Sub

 

[My Aswer Is This]

Edit

 

[My Aswer Is This]

So if you change any value in column A or B
You want the script to see if cell in column E is greater then cell in column F On same row

Is that what you want?
And this change will be done manually?
Not as the result of a formula change.

 

[LFKim2018]

Thank you for taking time to answer my query.

So if you change any value in column A or B

You want the script to see if cell in column E is greater then cell in column F On same row

yes that's it. and I think I get it - tested it to be working - pls see below if it is the correct coding structure.
many many thanks

Dim rngLastChange As Range

Private Sub Worksheet_Change(ByVal Target As Range)
    Set rngLastChange = Target
    [B]    If Intersect(Target, Me.Range("A:B")) Is Nothing Then Exit Sub[/B]
    If [E2] > [F2] Then   
        MsgBox "E2 is greater than F2", vbCritical
        Application.Undo
        Exit Sub
    End If
End Sub

 

[My Aswer Is This]

Yes that will work.

So you only want to compare E2 and F2

Not:
E3 and F3
or E4 and F4

 

[LFKim2018]

Yes that will work.

So you only want to compare E2 and F2

Not:
E3 and F3
or E4 and F4

yes.
thank you very much..

 

[My Aswer Is This]

Glad you have things working for you.

 

[JackDanIce]

What is variable rngLastChange used for? If not used, no point leaving in. As alt suggestion try:

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Column > 3 Then Exit Sub
    
    If Cells(2, 5).Value > Cells(2, 6).Value Then
        MsgBox "WARNING E2 is greater than F2", vbCritical, "Invalid value in E2 or F2"
        Application.Undo
    End If
    
End Sub

 

[steve the fish]

That would create an infinite loop jack as the undo will keep triggering the procedure

 

[JackDanIce]

Ah hence the Exit Sub after (or Application.EnableEvents = False/True wrap), thanks Steve