Why does workbook 1 stay open after Workbook 2 opens?

[BillLogue]

I have a macro that closes workbook one and opens workbook two. These are in user forms. It works fine except that workbook two automatically opens a user form and workbook one wont finish closing until a the user form is deactivated. I do not want this. Users will not have the ability to exit the form when this is ready to publish. Here is the codes and I hope you can help.

From workbook 1 to workbook 2
'Opens Workbook 2
Workbooks.Open Filename:=ThisWorkbook.Path & "\workbook2.xls"
'Close Workbook selection
Unload Me
'Closes Workbook 1 WITHOUT Saving
ThisWorkbook.Close False

Workbook 2 open

Private Sub Workbook_Open()
'Always Open on Sheet1.
Worksheets("Sheet1").Activate
Range("A1").Select
'Open the Roster Welcome User Form.
Userform3.Show
End Sub


Thank you in advance.

 

[Peter_SSs]

Bill

Welcome to the MrExcel board!

You originally posted this in the 'Questions in Other Languages' forum. Since your question is in English, it should not have been there and so I have moved it.

Also, the 'Questions in Other Languages' forum doesn't get as much traffic as this one so you were less likely to get an answer there anyway.

Your question is not in an area that I am strong at but hopefully somebody else will step in soon with a suggestion or two (though weekends are usually also a bit slower).

 

[BillLogue]

Thank you for moving me to the correct area. I'm currently stationed in Japan so it probably has to do with my time zone. Once again, thank you.

 

[Jaafar Tribak]

Did you try unloading the form AFTER closing the workbook ?

From workbook 1 to workbook 2
'Opens Workbook 2
Workbooks.Open Filename:=ThisWorkbook.Path & "\workbook2.xls"
'Close Workbook selection
'Closes Workbook 1 WITHOUT Saving
[COLOR=Red]ThisWorkbook.Close False
[/COLOR][COLOR=Red]Unload Me[/COLOR]

 

[shg]

When you open a modal form, code execution suspends. Can you open the form modeless?

In workbook 1,

    '...
    Workbooks.Open Filename:=ThisWorkbook.Path & "\workbook2.xls"
    Unload Me
    ThisWorkbook.Close False
    ...
End Sub

In workbook 2,

Private Sub Workbook_Open()
    Worksheets("Sheet1").Activate
    Range("A1").Select
    Userform3.Show [COLOR=red]vbModeless[/COLOR]
End Sub

 

[BillLogue]

Thank you both for the replies. I will try them as soon as possible and post once I find out if they work. Thank you again.

 

[BillLogue]

Thank you SHG. This worked perfectly. Can't believe that I missed it. Great call.

When you open a modal form, code execution suspends. Can you open the form modeless?

In workbook 1,

    '...
    Workbooks.Open Filename:=ThisWorkbook.Path & "\workbook2.xls"
    Unload Me
    ThisWorkbook.Close False
    ...
End Sub

In workbook 2,

Private Sub Workbook_Open()
    Worksheets("Sheet1").Activate
    Range("A1").Select
    Userform3.Show [COLOR=red]vbModeless[/COLOR]
End Sub

 

[shg]

You're welcome, glad it helped.