Target.Value dont work with cell containing RTD function that display streaming stock price.

[marwanco]

Im testing the following code empty excel sheet:
---------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Target.Value > 280 Then Cells(1, 2) = 99
End If
End Sub
----------------------------------------------------------
If I manually change A1 to 281, then Cells(1,2) or B1 will change to 99, all good.
BUT, A1 is dynamically updated with stock price with RTD function ,=RTD("tos.rtd", , "LAST", "SPY") , in this case Cells(1,2) or B1 is not changing!
Price in A1 is updated once per second on average.
VBA version is 7.1
Thanks in advance.

 

[RoryA]

Welcome to the forum.

A Worksheet_Change event doesn't respond to formulas recalculating. You'd need to use something like Worksheet_Calculate instead.