Looper Worksheet_change ved delete

Jeg har følgende kode som virker efter hensigten:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = [c4] Then
    If [c4] = "" Then
    [d4] = ""
    Else
    [d4] = ""
    varetekst '*kører sql forspørgsel
        If [d4] = "" Then
        [d4] = "varenummer findes ikke"
        [d4].Select
        End If
    End If
Else

End If

If Target = [c12] Then
    If [c12] = "" Then
    [d12] = ""
    Else
    [d12] = ""
    leverandør_navn '*kører sql forspørgsel
        If [d12] = "" Then
        [d12] = "Leverandør nr. ukendt"
        [d12].Select
        Exit Sub
        End If
    End If
Else
End If

End Sub

Mit problem består i at hvis "Delete" knappen bruges i en vilkårlig celle i arket er det som om markroen kører i ring og der kan ingenting fortages før den afbrydes med ESC. Hvorfor???