Excel - Worksheet_Change

Buenas Noches:
Tengo el siguiente código, que me funciona cuando modifico algun dato en la celda D3, sin embargo también se realiza cuando presiono la tecla suprimir, y quisiera que no se ejecute cuando presiono la tecla suprimir. El código es el siguiente:

Private Sub Worksheet_Change(ByVal Target As range)
nuevo = "D3"
If Not Application.Intersect(Target, range(nuevo)) Is Nothing Then
MsgBox "Se ha modificado el contenido de la celda"
End If
End Sub

De antemano muchas gracias por el tiempo y la ayuda.
Sergio.

Muy buenas,

Pues teniendo en cuenta lo que pasa al suprimir el valor de una celda, bastaría modificar ligeramente tu código y dejarlo así:

Private Sub Worksheet_Change(ByVal Target As Range)
nuevo = "D3"
If Not Application.Intersect(Target, Range(nuevo)) Is Nothing And Target <> "" Then
MsgBox "Se ha modificado el contenido de la celda"
End If
End Sub

Un saludo. Juanjo.

Muchas gracias Juanjo, me funciono bien.
Sergio