Can anyone tell me if my order of code is problem The first if sets the value
of target to 10.
When I tried the CopymailE code things work sporatic. CpoymailE needs to
work from this sheet. This sheet has all entries for parade. Have two other
copycode I want to run to build other sheets. Am I putting to much in this
worksheet? Following is code I am useing. You will notice I have ' out the
CopymailE
Would you advise I try to devolpe userforms for input. Haven't done that yet
but willing to learn.
Thanks to everyone


Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, rng1 As Range
On Error GoTo errhandler
Application.EnableEvents = False
If Target.Count 1 Then Exit Sub
If Target.Column = 12 And Target.Value 10 And IsNumeric(Target.Value) Then
Call CopyDonors(Target)
Target.Value = 10
End If
If Target.Column = (12) And Target.Value <= 0 And Not IsEmpty(Target) Then
Call Copycomp(Target)
End If
'If Target.Column = (12) And Target.Value = 10 And IsNumeric(Target.Value)
Then
' Call CopymailE(Target)
'End If
'If Target.Column = (12) And Target.Value = 10 And Not IsEmpty(Target) Then
' Call CopymailE(Target)
'End If
If Target.Column = 12 And Target.Row 1 Then
Set rng1 = Range(Cells(2, 12), Target)
On Error Resume Next
Set rng1 = rng.SpecialCells(xlBlanks)
On Error GoTo 0
If Not rng1 Is Nothing Then
rng1(1).Select
MsgBox "Please enter amount"
End If
End If
Application.EnableEvents = True
Exit Sub
errhandler:
Application.EnableEvents = True
End Sub