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.

cross-posting
http://www.excelforum.com/excel-prog...e-in-cell.html

Help me please: pray2:
Thanks to all

You could put this in the sheet's code module.
[VBA]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[/VBA]

Hi..

Thank you
you are a great guru:bow: