Private Sub Worksheet_Change(ByVal Target As Range)
Set b1 = Range("B1")
If Intersect(Target, b1) Is Nothing Then Exit Sub
Application.EnableEvents = False
'
' update A1
'
Application.EnableEvents = True
MsgBox ("B1 changed")
End Sub

Should work if B1 is refreshed with a value followed by ENTER, or by a
mouseclick, or by an ARROW movement.
--
Gary''s Student - gsnu200789


"Raj" wrote:

Hi,

I have an integer in cell a1. When an integer is input in cell b1, I
need the value in cell a1 multiplied by the value in cell b1 and the
result placed in cell a1. To achieve this I am using the
Worksheet_change event with target range as b1. The program works ok
when the user inputs the value in cell b1 and then presses the Enter
key. However, if the user clicks outside cell b1 after inputting the
value in cell b1, then the value in cell a1 does not change. How do I
ensure that the calculation takes place when the user exits b1?

How can I achieve this through a worksheet event?. Is there an event
that fires when the cell is exited?
Is there any other way to do this?

Thanks in advance for the help.

Regards,
Raj