If you have "... got it all except ..." it might have been useful to see what you do have - that helps so an answer can be provided in the context of the existing code.
Regardless, in the sheet Class module this is to apply to:
Option Explicit
Private Sub Worksheet_Activate()
Application.OnKey "{DELETE}", "TrapDEL"
End Sub
Private Sub Worksheet_Deactivate()
Application.OnKey "{DELETE}"
End Sub
And in a standard Code module:
Option Explicit
Public Sub TrapDEL()
If MsgBox("Do you want to continue...?", vbQuestion + vbYesNo, "Confirm") = vbYes Then
Selection.EntireRow.Font.Strikethrough = True
End If
End Sub
Note: This does not trap rows being deleted, just a press of the DEL button.
Bookmarks