VBA OnKey启动时运行

我有一个OnKey子项，用于迭代选定单元格中的日期，当我关闭excel时，OnKey指定返回默认值。你知道我如何让excel记住工作簿中的OnKey名称，这样当我打开工作簿时，它就能记住OnKey名称了吗

目前，我必须打开模块并通过中断模式运行它们，然后OnKey指定才能在工作簿中工作

这是有问题的代码

Sub CtrlUPKeystroke()
Application.OnKey "^{UP}", "IterationByDay"
End Sub

Sub IterationByDay()
Calculate
Worksheets("sheet1").Activate
ActiveCell.Value = DateAdd("y", 1, Now)
End Sub

---

只需将代码放入

Workbook\u Open

。或者更好-将代码放在原处，然后从

Workbook\u Open

处理程序调用它。谢谢。此工作簿中的处理程序运行良好，只需将代码放在

工作簿\u Open

中即可。或者最好将代码放在原处，然后从

工作簿\u Open

处理程序调用它。谢谢。此工作簿中的处理程序是完美运行的方式