According to Tom and Cart's suggestions, I correct the code in
Workbook_SheetChange a little.
Thanks a lot for both of your suggestions.

Private Sub Workbook_SheetChange(ByVal sh As Object, ByVal target As Range)
On Error GoTo errhandler
Application.EnableEvents = False
Select Case sh.Name
Case "Data", "Motorcycle", "Indian", "Native"
'1=data 6=Motorcycle 7=Indian 8=Native nbrs
If target.Column = 10 And _
target.Value 10 And IsNumeric(target.Value) Then
Call CopyStuff(sh, target)
End If
End Select
Application.EnableEvents = True
Exit Sub
errhandler:
Application.EnableEvents = True
End Sub

keizi

"Curt" wrote in message
...
for some reason I am getting type mismatch on this line? runtime error'13'
If target.Column = 10 And target.Value 10 Then
any Ideas
Thanks