I have 2 cells (A1.A2) where numbers will be entered.
Once the user goes to cell A3, I need VBA code to check
to ensure that A1+A2 = 100, and if they do not, to show
an error message saying they do not (I know how to do the
messagebox, but when I go to Cell A3, nothing happens even tho A1+A2 does
not = 100). What I have so far is the following (which is in the specific
worksheet code window):

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "A3" Then
If Range("A1").Value + Range("A2").Value <100 Then
MsgBox ("Error")
End If
End If
End Sub

I need code for this, not data validation or formuals. Thanks for any help
you can provide....pc

Use this Paige

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Range("A3"), Target) Is Nothing Then
If Range("A1").Value + Range("A2").Value < 100 Then
MsgBox "Error"
End If
End If
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl



"Paige" wrote in message ...
I have 2 cells (A1.A2) where numbers will be entered.
Once the user goes to cell A3, I need VBA code to check
to ensure that A1+A2 = 100, and if they do not, to show
an error message saying they do not (I know how to do the
messagebox, but when I go to Cell A3, nothing happens even tho A1+A2 does
not = 100). What I have so far is the following (which is in the specific
worksheet code window):

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "A3" Then
If Range("A1").Value + Range("A2").Value <100 Then
MsgBox ("Error")
End If
End If
End Sub

I need code for this, not data validation or formuals. Thanks for any help
you can provide....pc

If Target.Address = "$A$3" Then

HTH,
Gary Brown



"Paige" wrote:

I have 2 cells (A1.A2) where numbers will be entered.
Once the user goes to cell A3, I need VBA code to check
to ensure that A1+A2 = 100, and if they do not, to show
an error message saying they do not (I know how to do the
messagebox, but when I go to Cell A3, nothing happens even tho A1+A2 does
not = 100). What I have so far is the following (which is in the specific
worksheet code window):

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "A3" Then
If Range("A1").Value + Range("A2").Value <100 Then
MsgBox ("Error")
End If
End If
End Sub

I need code for this, not data validation or formuals. Thanks for any help
you can provide....pc

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Range("A3"), Target) Is Nothing Then
If Range("A1").Value + Range("A2").Value < 100 Then
MsgBox ("Error")
End If
End If
End Sub

Mike F
"Paige" wrote in message
...
I have 2 cells (A1.A2) where numbers will be entered.
Once the user goes to cell A3, I need VBA code to check
to ensure that A1+A2 = 100, and if they do not, to show
an error message saying they do not (I know how to do the
messagebox, but when I go to Cell A3, nothing happens even tho A1+A2 does
not = 100). What I have so far is the following (which is in the specific
worksheet code window):

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "A3" Then
If Range("A1").Value + Range("A2").Value <100 Then
MsgBox ("Error")
End If
End If
End Sub

I need code for this, not data validation or formuals. Thanks for any
help
you can provide....pc

Thanks guys - the revised code works perfectly!!!!

"Paige" wrote:

I have 2 cells (A1.A2) where numbers will be entered.
Once the user goes to cell A3, I need VBA code to check
to ensure that A1+A2 = 100, and if they do not, to show
an error message saying they do not (I know how to do the
messagebox, but when I go to Cell A3, nothing happens even tho A1+A2 does
not = 100). What I have so far is the following (which is in the specific
worksheet code window):

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "A3" Then
If Range("A1").Value + Range("A2").Value <100 Then
MsgBox ("Error")
End If
End If
End Sub

I need code for this, not data validation or formuals. Thanks for any help
you can provide....pc