thanks much see how we do will print and compare to see if I can understand
Learning is fun
Thanks Again "Tom"

"Tom Ogilvy" wrote:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo errhandler
Application.EnableEvents = False
If Target.column = 12 and Target.row 1 then
set rng = Range(Range("L1"),Target)
if Application.Countblank(rng) 0 then
msgbox "Don't leave any blank cells
target.clearcontents
target.end(xlup).offset(1,0).Select
Application.EnableEvents = True
exit sub
end if

If Target.Column = 12 And _
Target.Value 10 And _
IsNumeric(Target.Value) Then
Call CopyDonors(Target)
Target.Value = 10 '< change the value after calling
the sub
elseif Target.Column = 12 And _
Target.Value <= 0 Then
Call Copycomp(Target)
end if
end if
Application.EnableEvents = True
Exit Sub
errhandler:
Application.EnableEvents = True
End Sub

--
Regards,
Tom Ogilvy

"Curt" wrote:

useing event to trigger then after a code is run to come back and change
trigger value trigger. value is 10 want to change it to 10 after runnung
procedure. can we do this?
Thanks