Run Macro if values are changing

[mem_dawg]

Hi All,

I have a code that clears the content of a cell if the value of that cell exceeds two.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(1, 1).Value > 2 Then Cells(1, 1).ClearContents
End Sub

My problem is the value of this cell comes from a function and changes every second automatically (linked to a data feed). So I'm not changing it manually, therefore my code is not working unless I touch it. I just wanted to ask if I can add a code onto this which checks the values and runs the ClearContents macro if there is any change.. I've got a few sheets like this so I need this to run in the background.. any help would be highly appreciated..

cheers,
mem

 

[VoG]

Try this instead

Private Sub Worksheet_Calculate()
If Cells(1, 1).Value > 2 Then Cells(1, 1).ClearContents
End Sub

 

[mem_dawg]

Did the trick! thanks very much..