In ThisWorkbook module:

Private Sub ThisWorkbook_Open()
Load Userform1
Userform1.Show
End Sub


In the form module:

Private Sub UserForm1_Terminate()
ActiveWorkbook.Close False
End Sub


RBS


"XP" wrote in message
...
Using Office 2003 and Windows XP;

1. Could someone please post an example of a command that could call a sub
in a user Form module from the ThisWorkBook module?

For example:

In THISWORKBOOK:

Private Sub Workbook_Open()
Call UserForm_Initialize
End Sub

In FORM MODULE:

Public Sub UserForm_Initialize()
<other code here
Me.Show
End Sub

2. Is it possible to code a workbook to close automatically if the user
form
is closed? If so, how?

Many thanks for your assistance.