Message box on value

Hi all,

I need to trigger a message box if 2 conditions are met: A1>1 and A2>1 Message "Limit Exceeded".

On searching I've found some code but can't get it to work;

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column > 1 Then Exit Sub
If Target.Value > Target Then MsgBox _
"Please complete commentary section", vbCritical, "Input required"
End Sub

But can't get it to work. What is the "Target.Column" Refering to please ?

Give this a go

Please Login or Register  to view this content.

Originally Posted by OptionTrader

Thanks Dave, but doesn't work. Nothing happens when A1 and A2 exceed 1

Sure it does, or I would not have replied.

If it does not work in the worksheet_change then use the selection_change

Are A1 and A2 Formulas?

Did you put the code in the worksheet module?

Right click on the sheet tab and select view codes.

Application.EnableEvents=True and still nothing

See screen shot below...

Originally Posted by OptionTrader

Application.EnableEvents=True and still nothing

See screen shot below...

You did not place the code in the worksheet module.

Right click on the sheet tab and select view codes, paste the code there.