Hi XP,

I suspect that your code differs from that whhich you show.

However, typically, to avoid recursive calls to the event procedure try
something like:

'=============
Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo XIT
Application.EnableEvents = False
'Your code

XIT:
Application.EnableEvents = True
End Sub
'<<=============


---
Regards,
Norman



"XP" wrote in message
...
I have the following code in a sheet module to capture the change event,
when
the user changes cell contents:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$5" Then Call OtherProgram
End Sub

The problem is, when I edit cell E5 the program runs a long time, calling
the above routine over and over, presumably because my spreadsheet has
many
formulas in it? Anyway, it seems to be looping a lot and it shouldn't. How
can I get it to stop this behaviour?

i.e. When the user edits E5 and presses Enter, it should run once. BTW,
the
edited cell is not a formula, but contains a string. Many other cells are
linked to E5.

Thanks.