&引用；Excel VBA运行时错误'；424'；“所需对象”；时断时续地出现

嗨，我是VBA新手，我每隔一段时间就会在我的电子表格上弹出这个错误消息。我怎么知道是什么引起的

以下是我的代码参考：

Private Sub Worksheet_Calculate()
Dim OutApp As Object
Dim OutMail As Object
Dim Target As Double
Dim bRun As Boolean
Dim iHour As Integer

'On Error GoTo debugtest

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

Target = ThisWorkbook.Sheets("Quotes").Range("Q1")

'Reset the trigger flag if the last triggered time was yesterday or earlier
If Day(Now()) <> Day(ThisWorkbook.Sheets("Quotes").Range("Q3")) Then
    'Sheets("Quotes").Range("Q2") = False
End If

bRun = False
iHour = Application.WorksheetFunction.Text(Time(), "[hh]")
If iHour >= ThisWorkbook.Sheets("Quotes").Range("Q9") Or iHour <= ThisWorkbook.Sheets("Quotes").Range("Q10") Then
    bRun = True
End If

Private子工作表_Calculate（）
Dim OutApp作为对象
将邮件变暗为对象
双倍暗靶
Dim bRun作为布尔函数
Dim iHour作为整数
'错误时转到debugtest
Set-OutApp=CreateObject（“Outlook.Application”）
Set-OutMail=OutApp.CreateItem（0）
目标=此工作簿。工作表（“引号”）。范围（“Q1”）
'如果上次触发时间是昨天或更早，则重置触发标志
如果Day（Now（））Day（thishworkbook.Sheets（“Quotes”）.Range（“Q3”））那么
'表格（“报价”）。范围（“Q2”）=假
如果结束
bRun=错误
iHour=Application.WorksheetFunction.Text（Time（），“[hh]”）
如果iHour>=ThisWorkbook.Sheets（“Quotes”）.Range（“Q9”）或iHour当您点击
debug
，它出现在哪一行？当您遇到此问题时，Outlook是否正在运行？不一定是错误的原因，但如果您在“Quotes”工作表中运行此代码，如果iHour>=ThisWorkbook.Sheets（“Quotes”），您可以替换
.Range（“Q9”）或iHour=Range（“Q9”）或iHour当我点击调试时，它发生在Set-OutApp=CreateObject（“Outlook.Application”）上当Outlook正在运行或未运行时会发生错误当您点击调试时，它发生在哪一行？当您遇到此问题时Outlook是否正在运行？不一定是您出错的原因，但是，如果您在“Quotes”工作表中运行此代码，您可以替换
，如果iHour>=ThisWorkbook.Sheets（“Quotes”）.Range（“Q9”）或iHour=Range（“Q9”）或iHour，当我点击debug时，它发生在Set-OutApp=CreateObject（“Outlook.Application”）上，Outlook正在运行和未运行时会发生错误