使用带有BeforeClose的msgbox将数据导出到另一个工作簿

Question

在使用电子表格结束时，当用户希望离开文件时，我希望添加一个消息框，询问个人是否希望导出数据。我在BeforeClose部分下添加了消息框，但是当选择“是”时，数据将不会导出。选择是时，我会收到一条通知，指出“下标超出范围”。我想知道为什么会这样。

Excel VBA，此工作簿

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim Output As String

Output = MsgBox("Are you ready to export the data?", vbYesNo, "Data Export")

If Output = vbYes Then

Range("AJ" & Cells.Rows.Count).End(xlUp).Copy

Workbooks.Open Filename:="S:\US Div\Accounts\filename.xlsx"

Worksheets("Input P").Range("C7").Paste

End If

End Sub