Label Caption - Code

[paulyf]

Hi all,

I've been trying to have my form display a "Loading files...Please wait" message whilst it opens a file. However, the following code displays the label after it has opened the file (i.e. - too late!). How can I display the label before commencing the opening of the file?

Any thoughts?? Many Thanks in anticipation.

Cheers - Paul

Private Sub loadsup_Click()
lblwait.Visible = True
lblwait.Caption = "Loading files...Please wait"
ChDir "C:blah blah"
Workbooks.Open Filename:="C:blah blahtest.xls"

[Tom Schreiner]

Hi Paul
Use the UserForm.RePaint Method

Private Sub loadsup_Click()

lblwait.Visible = True

lblwait.Caption = "Loading files...Please wait"

UserForm1.Repaint

Workbooks.Open Filename:="C:blah blahtest.xls"

End Sub

Replace UserForm1 with the name of your form.
Tom

[paulyf]

Not sure how to edit initial post (answers on a postcard) but PROBLEM SOLVED.

MANY THANKS!

Cheers - Paul