Try this for A1:A10

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Range("A1:A10"), Target) Is Nothing Then
If Target.Value = "NOT" Then
MsgBox "YourCode or YourMacroName"
End If
End If
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl


"mastermind" wrote in message oups.com...
I am trying to write a change event that works on a particular range
and ONLY fires when the initial cell value is NOT " ". I have managed,
through trial and error, to write an event that will work over a range,
but cannot seem to get it to fire when I want to. It either fires all
of the time or not at all. Any help would be greatly appreciated