how to do ctrl + arrow key trigger function

[fight2]

This is what i have, i got it from this forum. I want to make it so ctrl and the up arrow key must be pressed together to trigger it. so i know that ^ is the code for ctrl, and ive been trying ^UP, but then it says something about onkey and yeah idk. Any help greatly appreciated. Thanks!

Sub AA()
Application.OnKey "{UP}", "Increment"
End Sub

Sub Increment()
On Error GoTo Last
ActiveCell.Value = ActiveCell.Value + 1
Last:
End Sub