我有一个名为"Dates"(对象名称为A_Dates)的工作表,需要在激活时进行计算(可能值得注意的是,这是在我的Personal宏工作簿中).我经常打开工作簿,有太多的计算在我身上进行自动计算.所以我将自动计算设置为手动,并在工作表中的以下代码:

Private Sub Worksheet_Activate()
   A_Dates.Calculate
End Sub

这在过去的3个月里一直很好,日复一日.昨天,它停止了工作.它现在在声明行上抛出此错误:

Microsoft Visual Basic
Automation error
Unspecified error
[OK] [Help]

我尝试改变我引用工作表的方式,使用:

Sheets("Dates").Calculate

和

ActiveSheet.Calculate

无济于事.我还包括错误处理:

On Error Resume Next

这并不妨碍它.我甚至走得很远:

Private Sub Worksheet_Activate()
   On Error GoTo headache
   Sheets("Dates").Calculate
Exit Sub

headache:
   Exit Sub
End Sub

它仍然显示出来.我完全不知所措.救命？

附加信息

我有以下参考资料,并在本工作簿的各种宏中使用它们:

Visual Basic for Applications

• Microsoft Excel 12.0对象库
• OLE自动化
• Microsoft Office 12.0对象库
• Microsoft Scripting Runtime
• Microsoft Forms 2.0对象运行时
• Microsoft HTML对象库
• Microsoft Internet Controls
• Microsoft ActiveX数据对象2.8库
• Microsoft ActiveX数据对象Recordset 2.8库