creating dataseries from real time data
 

I am trying to create a dataseries from real time quotes, thus far i have the
following code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$C$5" Then
Range("E65536").End(xlUp).Offset(1, 0) = Range("G1") + Target
If Range("E65536").End(xlUp).Address = "$E$100" _
Then Range("$E$2").Delete Shift:=xlUp


End If
End Sub


However, this macro does not recognise a value change in target cell a5, it
does so only after i click on a5 and <enter.
Could someone rewrite to code so it does recognise a changing cell? Or is it
possible to create a cell function that places consecutive outcomes in a
colom?

I really appriciate all the help i can get on this one!
Thanks in advance.

Maurice
Amsterdam, The Netherlands