vbs不'；当excel中存在事件时，不要执行所有代码行

我有一个脚本新手问题。试图寻找答案，但未能找到。或者是不能很好的让搜索引擎理解。 我正在尝试从VBS控制excel。我用VBS编写了简单的脚本。Excel中没有事件时，脚本运行正常。但当我多次按下鼠标按钮时，VBS脚本不会执行for循环中的所有代码行（只执行其中的第一行）。 我的代码示例：

dim FileName
dim firstCell
dim run_time
dim xlBook
dim i

FileName = "excelTaimeris.xlsx"


on error resume next
Set objExcel = GetObject(, "Excel.Application")
if err.number = 0 then

    Set xlBook = objExcel.Application.ActiveWorkBook

    if xlBook.Name = FileName then
        objExcel.DisplayAlerts = true
        objExcel.Visible =true

        Set firstCell = xlBook.ActiveSheet.range("A2")  'nustatom pirmaji laukeli automatiniam ejimui zemyn

        'doEvents
        for i=0 to 10
            WScript.Sleep 1000
            firstCell.offset(i-1,0).Interior.ColorIndex = 2
            firstCell.offset(i, 0).Interior.ColorIndex = 44
        next

    else
        msgbox "wrong excel is open"
    end if

我认为这与操作系统和Excel之间共享CPU有关。我是否应该实现某种方法来检查VBS脚本是否执行了代码行。如果没有，请再次执行

---

提前感谢您的时间！

删除

下一步继续出错

并阅读错误消息。您好，谢谢您的想法。我已经删除了这一行。然后，当我在工作簿中运行脚本并多次（快速）按鼠标键时，我收到错误消息“未知运行时错误”代码为800AC472。它指向第51行char 4（用于下一循环行2）。删除错误时的

，然后继续下一步

，并阅读错误消息。您好，感谢您的想法。我已删除了这一行。然后，当我在工作簿中运行脚本并多次（快速）按下鼠标按钮时，我会收到错误消息“未知运行时错误”代码为800AC472。它指向第51行char 4（用于..下一个循环行2）。