Put this in the worksheet code module

*Private Sub Worksheet_Change(ByVal Target As Range)
If target.cells.count 1 then exit su
If Not Intersect(Target, Range("D10")) Is Nothing The
MsgBox "This is" & Target.Addres
'Call Macro2 ''uncomment this to run your cod
End I
*End Sub

--
Simon Lloy

Regards
Simon Lloy
'The Code Cage' (http://www.thecodecage.com
-----------------------------------------------------------------------
Simon Lloyd's Profile: http://www.thecodecage.com/forumz/member.php?userid=
View this thread: http://www.thecodecage.com/forumz/showthread.php?t=3413