VB for worksheet change event

[asad]

Hello Guys,

I got the following code

Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
        If .Address <> "$A$1" Then Exit Sub
        If .Value <> "" Then
        Range("B1") = "Empty"
            Else
            Range("B1") = "Not Empty"
        End If
    End With
End Sub

This is not working. Can somebody please point me to the mistake I am making in this code? What should I replace with what and why?
Also, if I wanted to make it worksheet calculate eevent where A1 will be result of A2+A3, how would I do it?

Asad

 

[asad]

.

 

[jeffreybrown]

Where are you pasting the code and why not just =A2+A3 in cell A1?

 

[asad]

I am just trying to learn VB coding, That's all. So I am just putting some codes in the sheet and see if it works or not. This one didn't, and I can't understand why is it not working.
Can you please help me understand? Thanks for your help.
Asad

 

[asad]

With that A2+A3, I want to get a worksheet calculate event code that will be triggered by this calculation. That's all.

 

[jeffreybrown]

In A1 put = A2 + A3

Right click on the sheet tab >> view code

Private Sub Worksheet_Calculate()
    If Range("A1").Value = 4 Then
        MsgBox ("That's right")
    End If
End Sub

For the other piece of code you have it appears to be working, but you need to paste it in the worksheet module also.

http://www.rondebruin.nl/code.htm

 

[asad]

Thanks for your help. Yes, both are working now. Thanks again.

 

[jeffreybrown]

Glad it worked for you