kitabın kapanmadan önce olayını aşağıdaki gibi düzenleyip dener misiniz?
prosedürün isminin IslemYap olduğu varsayılmıştır

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    On Error Resume Next

    Application.OnTime 0, "IslemYap", , False



End Sub