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"
Application.EnableEvents = True
Thanks for the commentary and expanding the code beyond the requested scope. Nice code.
O.P., I apologize for not flipping off events as astutely demonstrated by hotpepper. While it doesn't change the outcome (well, speeds it up a few milliseconds), it certainly does belong there. Thank you, hotpepper.