Ayuda, cuando cierro la macro, me reinicia Excel

Hola buen día, tengo este problema, cuando cierro el archivo se tarda demasiado y se reinicia todo excel, lo raro es que no lo hacía antes, su ayuda por favor para saber cual es el error, este es el código, que manejo:

Private Sub Workbook_Open()

Call Ajustar_Imagen

ExecuteExcel4Macro ("show.toolbar(""ribbon"",0)")
With ActiveWindow

.DisplayHeadings = False .DisplayHorizontalScrollBar = False

.DisplayVerticalScrollBar = False

.DisplayWorkbookTabs = False

.DisplayGridlines = False

End With

With Application
.DisplayFormulaBar = False

.DisplayStatusBar = False
End With

End Sub

__________________________________________________________________________

Private Sub Workbook_BeforeClose(Cancel As Boolean)

ExecuteExcel4Macro ("show.toolbar(""ribbon"",1)")

With ActiveWindow

.DisplayHeadings = True

.DisplayHorizontalScrollBar = True

.DisplayVerticalScrollBar = True

.DisplayWorkbookTabs = True

.DisplayGridlines = True

End With

With Application
.DisplayFormulaBar = True

.DisplayStatusBar = True
End With

ActiveWorkbook.Close False

End Sub

Saludos Cordiales