Code stops after ActiveWIndow.Close?

[EssKayKay]

Hello,

I’m having a small issue with my routine stopping after one line of code. It stops after
ActiveWindow.Close savechanges:=False
It never processes anything after this (e.g., I do not see the message box). If I remark out the line above, the routine continues through the message box. Any suggestions would be appreciated.

Following is a snipit (test) of my code:

Public Sub Repair_NO()
   Workbooks.Open("C:\Users\Steven Kipping\Desktop\5407.xlsb").RunAutoMacros Which:=xlAutoOpen
   Windows("Amort_Temp1.xlsb").Activate
   ActiveWindow.Close savechanges:=False
   Kill "C:\Users\Steven Kipping\Desktop\test.xlsb"
   MsgBox "Try_MSG"
End Sub

Thanks for viewing,
Steve K.

 

[jkpieterse]

Of course it does, if the workbook containing the code happens to be that active workbook that you are asking to close. Excel cannot run code that is in a closed workbook so it all stops with that statement.

 

[EssKayKay]

Of course it does, if the workbook containing the code happens to be that active workbook that you are asking to close. Excel cannot run code that is in a closed workbook so it all stops with that statement.

Thank you Jan for your quick response.
That does make sense. So is there a way to call the remaining part of the code (or some other code) from the remaining open workbook (i.e., 5407.xlsb)? If not, what I've been doing is running the "Kill" command from Workbook_BeforeClose routing. If possible, I just rather do it before closing all.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   On Error Resume Next
   Kill ActiveWorkbook.Path & Application.PathSeparator & "Amort_Temp*.xlsb"
End Sub

Sorry for asking such mundane questions - as you can tell, I am not a programmer.

 

[EssKayKay]

I believe I have this resolved. There are other command buttons on the form that are used quite often. In addition to the Workbook_BeforeClose sub, I have added this code to a couple other buttons. It appears to be doing what I want.

On Error Resume Next
Kill ActiveWorkbook.Path & Application.PathSeparator & "Amort_Temp*.xlsb"

Thanks all,
Steve K.