Как закрыть рабочую книгу?

Question

Я хочу закрыть и превзойти рабочую книгу, но не могу, это дает мне ошибку времени выполнения 1004

Я пробовал все в разделе комментариев в коде ниже.

Private Sub April()

'open workbook
Dim fileName As String
Dim directory As String
Dim fileNameLong As String
Dim rpr As Workbook

directory = "C:\Users\.........\Desktop\Rapor"
fileName = dir("C:\Users\.........\Desktop\Rapor" & "\*.xlsm")
fileNameLong = directory & "\" & fileName
Set rpr = Workbooks.Open(fileNameLong)

Workbooks(2).Worksheets(1).Range("bb2").Copy
Workbooks(1).Worksheets(1).Range("a2").PasteSpecial xlPasteValues
Workbooks(2).Worksheets(1).Range("g3").Copy
Workbooks(1).Worksheets(1).Range("b2").PasteSpecial xlPasteValues
Workbooks(2).Worksheets(1).Range("g5").Copy
Workbooks(1).Worksheets(1).Range("c2").PasteSpecial xlPasteValues
Workbooks(2).Worksheets(1).Range("g21:be21").Copy
Workbooks(1).Worksheets(1).Range("d2").PasteSpecial xlPasteValues
Application.CutCopyMode = False

'save the file to archive later but first to close the excel file. 

Dim saveNameLong As String
saveNameLong = directory & "\Archive\" & fileName
Application.Workbooks(1).Activate
Range("a2").Select
rpr.Close False
'Application.Workbook(ActiveWorkbook.FullName).Close
'ActiveWorkbook.Close
'Application.Workbook.Close False, fileName
'Application.Workbooks(2).Close
'Name fileNameLong As saveNameLong

End Sub

ошибка выполнения 1004. Я не могу закрыть книгу Excel.

РЕДАКТИРОВАТЬ: Ахмед А.У .. да, есть частная подпрограмма Workbook_BeforeClose (Cancel As Boolean) в книге, которую я хочу закрыть.это проблема?как я могу обойти это?

РЕДАКТИРОВАТЬ (решено): я просто добавил application.events = false, и это сработало !!!