Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, Range("foo")) Is Nothing Then Exit Sub
If Target.Value = "joe shmo" Then Target.Value = "poop"
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, d As Range
Set d = Intersect(Range("A1:A10"), Target)
If d Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each c In d
If c = "joe shmo" Then c = "poop"
Next
Application.EnableEvents = True
End Sub