Solved: Onkey to insert symbols

[Jan Karel Pieterse]

Application.OnKey "+c","ShiftC"

Will run ShiftC when you hit Shift + C:

Sub test()
    Application.OnKey "+c", "ShiftC"
End Sub
Sub ShiftC()
    ActiveCell.Value = Chr(120)
    ActiveCell.Font.Name = "WingDings"
End Sub