Bob, thanks for your help.

I managed to get it to work using: -

saveform1.repaint

regards,

tim

"Bob Phillips" wrote in message
...
Tim,

If I put the MsgBox in before the form hide it works for me.

You don't need the hide and the unload. Hide removes the window, but keeps
the form in memory, Unload removes it from memory which also closes the
window.

--

HTH

RP

"Tim" wrote in
message
...
I would like to display a 'waiting' / 'working' warning after clicking a
button on a userform. i know this can be done in several ways, but as
the
userform was there anyway, i thought the easiest would just be to have a
text box ("Working - Please Wait...") to be made visible after clicking
the
<OK button (the userform staying open until all actions completed).

the textbox is made invisible using [SaveForm1.Label8.Visible = False]
when
the form is initialised; my problem is that i can't make it visible
again
(except when i put [msgbox label8.caption] after
[SaveForm1.Label8.Visible
=
True]. how could i get this to work? The code is below.

Many thanks,

Tim


Private Sub CommandButton2_Click()

'SaveForm1.Label8.ZOrder (0) <-- the textbox is on top anyway - this
didn't
make any difference
SaveForm1.Label8.Visible = True
Application.ScreenUpdating = True

Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(ActiveWorkbook.Path & "\site.ini", True)
a.WriteLine (ComboBox4.Text)
a.Close

Sheets("Parameters").Range("e3") = TextBox3.Text
ActiveWorkbook.SaveAs TextBox1.Text & TextBox3.Text



SaveForm1.Hide
Unload SaveForm1
MsgBox TextBox3.Text & " is Saved"

End Sub