Sub Macro1()
ActiveCell.Value = "P"
ActiveCell.Font.Name = "Wingdings 2"
End Sub
Sub Macro2()
Application.OnKey "{ENTER}", "Macro1"
End Sub
then run Macro2. Whenever you touch the ENTER key on the numeric keypad, a
check mark will be entered. These leaves the main ENTER key available for
normal uses.