Visual Basic：无法找到宏

Question

我使用here中的代码并重新利用它。

我希望每秒触发一次事件。这是我的代码

Sub auto_run()
    Call ScheduleCopyPriceOver
End Sub
 Sub CopyPriceOver()
    Dim ws As Worksheet
    Set ws = Worksheets("Log")
    Dim rng As Range
    ws.Range("b5").Copy
    Sheets("Log").Cells(Rows.Count, "A").End(xlUp).Offset(1).PasteSpecial xlPasteValues
    Call ScheduleCopyPriceOver
End Sub

Sub ScheduleCopyPriceOver()
    TimeToRun = Now + TimeValue("00:00:01")
    Application.OnTime TimeToRun, "CopyPriceOver"
End Sub

Sub auto_close()
    On Error Resume Next
    Application.OnTime TimeToRun, "CopyPriceOver", , False
End Sub

当我运行＆＃34; CopyPriceOver（）＆＃34;宏，它工作正常，但当它通过调度程序循环回来时，我得到一个＆＃34;无法找到宏＆＃34;信息。

以下是错误消息：

我害怕我神秘，发生了什么？