Hi Jan Karel Pieterse,

Thanks very much for your reply. Your codes work brilliantly. I modified your codes a bit to suit my purpose. For everyone's reference, here are the modified codes for shift C & shift X:

Sub ShiftC()
    ActiveCell.Value = Chr(252)
    ActiveCell.Font.Name = "WingDings"
End Sub
Sub ShiftX()
    ActiveCell.Value = Chr(114)
    ActiveCell.Font.Name = "Webdings"
End Sub
Kind regards


KP