message to delete value in cell

Hi..

I would take a message whenever the User tried to delete any value in any worksheet cell.

If you chose OK then the cell would be deleted if you chose to Cancel the cell will not be deleted.

Thanks to all

I'm thankful for any help .. thanks

see..

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
If .Cells.Count = 1 Then
If .Value = vbNullString Then
If MsgBox("Delete OK?", vbOKCancel) = vbCancel Then
Application.Undo
End If
End If

End If
End With
End Sub