Split kører i ring og excel lukker ned

Mon ikke det er noget med:

Private Sub Worksheet_Change(ByVal Target As Range)
'Kør, når der bliver ændret i arket.

Worksheets("Løn og timebudget").Cells(x, y - 1).Value = Projektnr
'Skriver i arket (Der bliver ændret i arket.) Så køres makroen igen!!

Tak for info - det er korrekt at jeg at makroen kører igen - er kommet uden om det ved at gøre følgende
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 3 And Cells(x, 3).Value <> "" And Target.Row > 9 Then
        Dim projekt() As String
        Projektnr = splitProjekt(Worksheets("Indtægt og omkostningsbudget").Cells(x, y - 1).Value)
        If IsEmpty(projekt) = False Then
            SQL_Connection
            Set rs = c.Execute("SELECT artsnavn FROM arter INNER JOIN projart ON arter.artnr = projart.artnr WHERE projektnr = " & "'" & Projektnr & "' AND projart.artnr = " & "'" & Target.Value & "'")
            If (Not rs.BOF) Then
                Worksheets("Indtægt og omkostningsbudget").Cells(x, y + 1).Value = Target.Value & " | " & rs![artsnavn]
            ElseIf Target.Value <> "" Then
                MsgBox "Det valgte artsnummer er ikke gyldigt i AX"
            End If
            SQL_Close
        End If
        Exit Sub
    End If
end sub

Årsagen til koden er at vis de kan huske artnr så kan de taste det direkte og så finder den værdien i næste felt - hvis de ikke kan huske artnr, så kan de stå op i listen og artnr placeres i cellen før.

Skal bruge det til et budgetskema, hvor jeg skriver direkte til en database. Det er en ny udvikling for mig at kode sådan, men indtil videre har det virket.   
   
    ' Split arten op i nummer og navn
    If Target.Column = 4 And Cells(x, 4).Value <> "" And Target.Row > 9 Then
        Projektnr = splitProjekt(Target.Value)
        If Projektnr = Cells(x, y - 1).Value Then
            Worksheets("Indtægt og omkostningsbudget").Cells(x, y - 1).Value = Projektnr
        End If
        Exit Sub
    End If

Min kode endte sådan:

Private Sub Worksheet_Change(ByVal Target As Range)
    ' ved taste art-nummer, så står den navnet op i databasen og smider det ind.
    If Target.Column = 3 And Cells(x, 3).Value <> "" And Target.Row > 9 Then
        Dim projekt() As String
        If Projektnr <> Cells(x, y - 1).Value Then
            Projektnr = splitProjekt(Worksheets("Indtægt og omkostningsbudget").Cells(x, y - 1).Value)
            If IsEmpty(projekt) = False Then
                SQL_Connection
                Set rs = c.Execute("SELECT artsnavn FROM arter INNER JOIN projart ON arter.artnr = projart.artnr WHERE projektnr = " & "'" & Projektnr & "' AND projart.artnr = " & "'" & Target.Value & "'")
                If (Not rs.BOF) Then
                    Worksheets("Indtægt og omkostningsbudget").Cells(x, y + 1).Value = Target.Value & " | " & rs![artsnavn]
                ElseIf Target.Value <> "" Then
                    MsgBox "Det valgte artsnummer er ikke gyldigt i AX"
                End If
                SQL_Close
            End If
        End If
        Exit Sub
    End If
   
   
    ' Split arten op i nummer og navn
    If Target.Column = 4 And Cells(x, 4).Value <> "" And Target.Row > 9 Then
        Projektnr = splitProjekt(Target.Value)
        If Projektnr <> Cells(x, y - 1).Value Then
            Worksheets("Indtægt og omkostningsbudget").Cells(x, y - 1).Value = Projektnr
        End If
        Exit Sub
    End If
end sub

altså ved at tage højde for om artnr er ens i begge celler, så den ikke går i løkke. Vil prøve at teste det lidt mere.