Private Sub Worksheet_Change(ByVal Target As Range)
MsgBox Application
a = Application.OnKey([Del], MyChange)
End Sub
Private Function MyChange()
MsgBox "Hey"
End Function
a = Application.Worksheetfunctions.OnKey([del], MyChange)
Private Sub Worksheet_Change(ByVal Target As Range)
Call Application.OnKey("{DEL}", Me.CodeName & ".MyChange")
End Sub
Private Function MyChange()
MsgBox "Hey"
End Function