Excel VBA problemer med delete

Hej.

Jeg har følgende macro:
  Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("NAME")) Is Nothing Then
        If Target = "N" Then Range("A4") = "TEST" Else Range("A4") = ""
  End If
 
  End Sub

Den virker fint, men det giver probelmer hvis jeg sletter indholdet i den navngiven celle med delete-tasten.

Hvis jeg blot skriver noget andet i "NAME" så er det ikke noget problem, men hvis jeg sletter ved at druger delete tasten får jeg følgen fejl:

Run-time error '13':
Type mismatch

Håber nogen ved hvordan jeg løser dette problem.

på forhånd tak.