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

Private Sub Worksheet_Change(ByVal Target As Range)

If Range("A1") > 1 Then
If Range("A2") > 1 Then
MsgBox "Limit Exceeded."
End If
End If

End Sub

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.