I have some code which shows a userform. While the form is shown I want to
run through a lenthy routine and periodocially update a label with status
strings. However, once the userform is shown, the code stops progressing. I
can only get the code to progress if I close the form. It almost as if I
have set break in the code on the first line after the Userform1.Show
statement. Any ideas?


Sub DoSomething()
Userform1.Show

Call DoSomethingElse

End Sub

Call DoSomethingElse
Userform1.Label1 = "Show something"
End Sub

Thanks

EM

Duh. Needed to ste ShowModal = False to make modeless.

Thanks

EM

"ExcelMonkey" wrote:

> I have some code which shows a userform. While the form is shown I want to
> run through a lenthy routine and periodocially update a label with status
> strings. However, once the userform is shown, the code stops progressing. I
> can only get the code to progress if I close the form. It almost as if I
> have set break in the code on the first line after the Userform1.Show
> statement. Any ideas?
>
>
> Sub DoSomething()
> Userform1.Show
>
> Call DoSomethingElse
>
> End Sub
>
> Call DoSomethingElse
> Userform1.Label1 = "Show something"
> End Sub
>
> Thanks
>
> EM

The way to do that and make your code self-documenting is to use the
built-in VB constant...

Userform1.Show vbModeless

--
Rick (MVP - Excel)


"ExcelMonkey" <(E-Mail Removed)> wrote in message
news:2EF1FD27-8428-4F3A-9832-(E-Mail Removed)...
> Duh. Needed to ste ShowModal = False to make modeless.
>
> Thanks
>
> EM
>
> "ExcelMonkey" wrote:
>
>> I have some code which shows a userform. While the form is shown I want
>> to
>> run through a lenthy routine and periodocially update a label with status
>> strings. However, once the userform is shown, the code stops
>> progressing. I
>> can only get the code to progress if I close the form. It almost as if I
>> have set break in the code on the first line after the Userform1.Show
>> statement. Any ideas?
>>
>>
>> Sub DoSomething()
>> Userform1.Show
>>
>> Call DoSomethingElse
>>
>> End Sub
>>
>> Call DoSomethingElse
>> Userform1.Label1 = "Show something"
>> End Sub
>>
>> Thanks
>>
>> EM