Allowing the cell to be editable after macro.

[Surion84]

I have been trying to use this code, to scan data matrices into excel. They have three lines of data but when scanned they move to three individual cells. This code manages to keep them in a single cell so that multiple can be scanned into it, but it the event of a duplicate or an error, the cell is not editable.

[COLOR=#839496][FONT=Consolas]Private Sub Worksheet_Change(ByVal Target As Range) 

    If Target.Count > 1 Then Exit Sub 

    If Not Intersect(Target, Range("C2:C10")) Is Nothing Then 
        On Error GoTo Fìn 
        Application.EnableEvents = False 
        Dim vNew As Variant 
        vNew = Target.Value        
        Application.Undo 
        If Not IsEmpty(Target) Then 
            Target = Target.Value & Chr(10) & vNew 
        Else 
            Target = vNew 
        End If 
        'Target.Offset(1,0).Activate 
     End If

Fìn: 
    Application.EnableEvents = True

End Sub[/FONT][/COLOR]