Delete Msbox

[vanoo]

I want a warning code VBA before I delete any cell in Excel

 

[plettieri]

Hi van...you might try the bit of via code that I found...it seems to wrk ok for me

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error GoTo ExitSub
Application.EnableEvents = False

If Target.Value = "" Then
Dim response As VbMsgBoxResult
response = MsgBox("Are you sure you want to delete/remove this cell?", vbYesNo + vbExclamation, "Warning")

If response = vbNo Then
Application.Undo
End If
End If

ExitSub:
Application.EnableEvents = True
End Sub

hope this helps

plettieri