Perhaps

With Target
If .Column = 12 Then _
If Application.IsText(.Value) Then _
If Len(Trim(.Text)) 0 Then _
Call Announcer(.Cells)
End With

In article ,
Curt wrote:

have not been able to get text to function as trigger
Useing following have compile problem useing IsText say wrong argument
Have no trouble when useing numeric value.
Target column 12 will all ways have text in it. It is description cell
stimmed.
Thanks

< = 0
also no go
If Target.Column = 12 And CDbl(Target.Value) (" ") And
IsText(Target.Value) Then _
Call Announcer(Target)