Unload Userform1

Is closing the userform Eric


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"Eric" wrote in message ...
I have a userform that I bring up that have two userforms
associated with it. What I want to do is close the
userform when a button is pushed. I know to bring up a
userform is UserForm1.Show but how do I close it using
VBA? My Code below...

Sub Macro1()

Application.ScreenUpdating = False
Documents.Add

x = 1

'Loading bitmaps to Word and checking if any were
skipped
Do Until y = 3
If Len(Dir("\\files-2k1\d35058$\cptl" & x
& ".bmp")) 0 Then
Selection.InlineShapes.AddPicture FileName:= _
"\\files-2k1\d35058$\cptl" & x & ".bmp",
LinkToFile:=False, SaveWithDocument:= _
True
x = x + 1
y = 0
ElseIf Len(Dir("\\files-2k1\d35058$\cptl" & x
& ".bmp")) = 0 Then
y = y + 1
x = x + 1
Else
Exit Do
End If
Loop

UserForm1.Show
End Sub

First button on Userform1....

Private Sub CommandButton1_Click()

Dim fldrname1 As String
Dim fname As String

'UserForm1.

fldrname1 = InputBox("What is the name of the
plant?", "Folder Name Notification")

If fldrname1 = "" Then
Do
fldrname1 = InputBox("No name was found. You must
type in a file name.", "File Name Alert")
Loop Until fldrname1 < ""
End If

If Len(Dir("\\files-2k1\Eng\QA\ThirdPartyAudits\" &
fldrname1 & "\")) = 0 Then
MkDir ("\\files-2k1\Eng\QA\ThirdPartyAudits\" &
fldrname1 & "\")
End If

fname = InputBox("What is the file name you would
like?", "File Name Notification")

Do
If fname = "" Then
fname = InputBox("No name was found. You must type
in a file name.", "File Name Alert")
End If
Loop Until fname < ""

Application.ScreenUpdating = True

Do
If Len(Dir("\\files-2k1\Eng\QA\ThirdPartyAudits\" &
fldrname1 & "\" & fname & ".doc")) 0 Then
fname = InputBox("File already exists. Please
enter another file name.", _
"File Name Alert")
If fname = "" Then
MsgBox "No name was found or you hit Cancel.
Closing Word w/o saving..."
Application.Quit (False)
End If
Else
Exit Do
End If
Loop Until Len(Dir("\\files-2k1\Eng\QA\ThirdPartyAudits\"
& fldrname1 & "\" & fname & ".doc")) = 0

ActiveDocument.SaveAs ("\\files-2k1
\Eng\QA\ThirdPartyAudits\" & fldrname1 & "\" & fname)

If Len(Dir("\\files-2k1\d35058$\*.bmp")) < 0 Then
Kill "\\files-2k1\d35058$\*.bmp"

ActiveDocument.Close 'Closes the document

ErrorHandler_Exit:
Exit Sub

ErrorHandler:
Select Case Err
Case 53
MsgBox "No file found. Exiting 'Add Audit
Report' procedure."
GoTo ErrorHandler_Exit
Case Else
MsgBox Err.Number & " " & Err.Description
GoTo ErrorHandler_Exit
End Select

End Sub

Second button on UserForm1...

Private Sub CommandButton2_Click()

Dim fname As String
Dim fldrname1 As String

'UserForm1.
fname = InputBox("What is the file name?", "File Name
Notification")
fldrname1 = InputBox("What is the folder
name?", "Folder Name Notification")
If fname = "" Or fldrname1 = "" Then Exit Sub
If Len(Dir("\\files-2k1\Eng\QA\Individual
Folder\Martin\CARs\" & fldrname1 & "\")) = 0 Then
MkDir ("\\files-2k1\Eng\QA\Individual
Folder\Martin\CARs\" & fldrname1 & "\")
End If
Recheck:
If Len(Dir("\\files-2k1\Eng\QA\Individual
Folder\Martin\CARs\" & fldrname1 & "\" & fname)) < 0 Then
fname = InputBox("File already exists. Please type
in another file name.", "File Name Alert")
GoSub Recheck
End If
ActiveDocument.SaveAs ("\\files-2k1\Eng\QA\Individual
Folder\Martin\CARs\" & fldrname1 & "\" & fname)
MsgBox "File saved to J:\QA\Individual
Folder\Martin\CARs\" & fldrname1 & "\" & fname & ".doc"
ActiveDocument.Close (False)
If Len(Dir("\\files-2k1\d35058$\*.bmp")) < 0 Then
Kill "\\files-2k1\d35058$\*.bmp"

End Sub