Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$M$5:$N$5" Then Navigation
If Target.Address = "$M$6:$N$6" Then Print
If Target.Address = "$M$7:$N$7" Then Send
If Target.Address = "$M$8:$N$8" Then Delete
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not (Application.Intersect(Target, Range("D23")) Is Nothing) Then
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
Application.CutCopyMode = False
End If
End Sub