excel如何设置使其自动刷新

Private Sub Workbook_Open()
myclock
End Sub

Sub myclock()
Range("A1").Value = Time
Application.Wait (Now() + TimeSerial(0, 0, 1))
myclock
End Sub
这个代码贴进去后，虽然当前时间改了，可是鼠标不动，处于死机状态，如何解决？

一楼朋友给的答案试了很多次，提示此文件中没有："myclock"，关闭提示框后,虽然不死机了,但也没有随机显示的时间了.盼望朋友能有更好的答案,在此感谢了!!!

把下面那个宏改成：

Sub myclock()
Range("A1").Value = Time
Application.OnTime Now + TimeSerial(0, 0, 1), "myclock"
End Sub

就不会进入死机状态了

1.alt+f11：快捷键,打开vb编辑器 2.代码为开启excel后自动运行刷新功能 有疑问再说