You can stop the looping by wrapping your code with
Application.Enableevents:

Private Sub Worksheet_Calculate()
Application.EnableEvents = False
'Do stuff
Application.EnableEvents=True
End Sub



In article ,
grievesy wrote:

Is there such a thing as onCellupdate. I am using Worksheet_Calculate()
but my actions within that create new data and so keep looping. Is it
posible to react to just the change of data on one cell.

I am using RTD from another application and so data change often.

Please help if you can..


---
Message posted from http://www.ExcelForum.com/