Tom - I was going to say it didn't work, then I realized I stuck it in after
the Load and not after the Show. Changed it to the right place and it
worked. I'll never doubt you again! 8)

Thanks again.
Ed

"Tom Ogilvy" wrote in message
...
UserForm1.Show vbModeless
DoEvents

--
Regards,
Tom Ogilvy

"Ed" wrote in message
...
I made a small UserForm with a label that says "Waiting" to pop up
during
some of my longer macro routines. I'm trying it in one program using
the
code below, but the Label never loads - it stays a white square. What
would
be the best way to figure out why it won't load? Or does anyone have a
correction for this?

Ed

<Dims here

Load UserForm1
cntFound = 0

MyTarget = ""
MyTarget = Application.InputBox("What text are you searching for?")
If MyTarget = "" Or MyTarget = "False" Then GoTo Bye

UserForm1.Show vbModeless

Range("B1").Activate
strName = ActiveWorkbook.Name
Application.ScreenUpdating = False

Do
<loop through code
<Form unloaded at end