Worksheet_Change(ByVal Target As Range) NOT WORKING

[velocity1234]

I have the following code in worksheet 1.

I have a RTD feed linked to $F$13 and $F$14. The code will record Higher Highs and Lower Lows from the RTD Feed in Cells F13 and F14. However, when the feed is on and linked to the data source the code does not run. If I type over the code in cell F13 or F14 with a hard number the code works fine.

Here is my code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$13" Then
If Target.Value - Target.Offset(0, 2) > 0 Then
Target.Offset(0, 2) = Target.Value
ElseIf Target.Value - Target.Offset(0, 3) < 0 Then
Target.Offset(0, 3) = Target.Value
End If
End If

If Target.Address = "$F$14" Then
If Target.Value - Target.Offset(0, 2) > 0 Then
Target.Offset(0, 2) = Target.Value
ElseIf Target.Value - Target.Offset(0, 3) < 0 Then
Target.Offset(0, 3) = Target.Value
End If
End If

End Sub

I have also tried adding Application.EnableEvents = True to the code, but no luck in getting it to fire off. What am I doing wrong?

Thanks,

 

[dmt32]

A puzzle - change line below

from this:

If Len(Addrss) > 0 Then Worksheet_Change (ThisWorkbook.Sheets(1).Range(Addrss))

If Len(Addrss) > 0 Then Call Worksheet_Change(Me.Range(Addrss))

If still no luck then sorry, not sure why not as ok for me.

Dave

 

[velocity1234]

That did the trick. Thank you so much!!!

 

[dmt32]

That did the trick. Thank you so much!!!

have to put that down to a quirk of Excel. Glad we got there in the end.

Dave