You can manually format the cell in "Wingdings" font and use ALT + 0252
This method is tedious because you would need to format each cell individualy before entering the keystrokes. If you format the entire column in Wingdings font then your cells contacting the "Y" character will change to something else. If you decide to use this method make sure to keep the ALT key pressed while entering the numbers and also make sure to use the numbers on the number keypad and not the numbers that are at the top of the keyboard beneath the function keys.
It's probably easier to use a macro to do this. Just record a blank macro using the macro recorder and replace the code with the macro below. You can assign whatever keyboard shortcut you want to run the macro.
Code:
Public Sub Checkmark()
Activecell.Value = Chr(252)
Activecell.Font.Name = "Wingdings"
End Sub
If you have multiple cells to do at once you can manually select your range of cells and use this macro
Code:
Public Sub Checkmark()
For Each vCell In Selection.Cells
If UCase(vCell.Value) = "Y" Then
vCell.Value = Chr(252)
vCell.Font.Name = "Wingdings"
End If
Next vCell
End Sub
Regards,
Rollin