Worksheets.Cells（）给出“应用程序定义”错误

Question

我有一些非常简单的代码，用于将单元格A2设置为自动打开宏中的路径/文件名。

Sub Auto_Open()
    Dim apath, aname, aref
    apath = Workbooks("Workbook.xlsm").Path
    aname = Workbooks("Workbook.xlsm").Name
    aref = apath & "\" & aname
    ActiveWorkbook.Worksheets("Sheet1").Cells(2, 1) = aref
End Sub

最后一行在我的机器上失败，但在同事机器上工作。问题出在Cells对象上。当我在Cells对象上添加监视时，它会显示“应用程序定义的或对象定义的错误”。就像Cells对象不存在一样。令我感到困惑的是，它适用于我的同事机器。

工作簿确实有一些其他受保护的工作表，但Sheet1不受保护。当我取消保护其他纸张时，我遇到同样的问题。

我尝试将单元格引用更改为范围（“A2”），而不是相同的行为。但是，如果我将其设置为指向不同的工作表，则工作正常！

这张让我无法访问Cells / Range属性的表格是什么？