T
Tony Bender
I have an application consisting of a report menu and the
corresponding templates the menu points to.
The menu is a UserForm (UF1) and resides on a separate workbook
(Wkbk1). When the user opens Wkbk1 it automatically opens UF1. The
user then selects a report template from one of 4 OptionButtons. The
resulting template (example; Rpt1.xls) opens up. The user can exit
this report by clicking on the Exit button (triggers the ExitApp macro
which closes the activewindow).
My problem is when I click on the Exit button it closes the
application OK, but instead of opening the menu (UF1) it simply opens
the sole empty worksheet in Wkbk1. I want this to automatically open
the UF1 instead of displaying the empty worksheet.
I tried entering the following code onto the worksheet in the VBE
under the VBA Project
Private Sub Workbook_Open()
Load UF1
UF1.Show
End Sub
But no luck
Can this be done? If so I need help understaning the correct code to
do this.
Thank you,
corresponding templates the menu points to.
The menu is a UserForm (UF1) and resides on a separate workbook
(Wkbk1). When the user opens Wkbk1 it automatically opens UF1. The
user then selects a report template from one of 4 OptionButtons. The
resulting template (example; Rpt1.xls) opens up. The user can exit
this report by clicking on the Exit button (triggers the ExitApp macro
which closes the activewindow).
My problem is when I click on the Exit button it closes the
application OK, but instead of opening the menu (UF1) it simply opens
the sole empty worksheet in Wkbk1. I want this to automatically open
the UF1 instead of displaying the empty worksheet.
I tried entering the following code onto the worksheet in the VBE
under the VBA Project
Private Sub Workbook_Open()
Load UF1
UF1.Show
End Sub
But no luck
Can this be done? If so I need help understaning the correct code to
do this.
Thank you,