Change label caption on userForm while code runs

[Sliman]

I am wanting to change label caption on userform while code runs.
Have got it working as follows inserted in break in VB but is there a
better way?

UserForm1.Hide
UserForm1.Show vbModeless
UserForm1.Label1.Caption = "Step 2 in progress"
Application.Wait Now + TimeValue("0:0:01")

Thanks
Simon

[Tom Ogilvy]

Possibly. Look at Chip Pearson's page on application.Ontime

http://www.cpearson.com/excel/ontime.htm

--
Regards,
Tom Ogilvy


"Sliman" wrote:

> I am wanting to change label caption on userform while code runs.
> Have got it working as follows inserted in break in VB but is there a
> better way?
>
> UserForm1.Hide
> UserForm1.Show vbModeless
> UserForm1.Label1.Caption = "Step 2 in progress"
> Application.Wait Now + TimeValue("0:0:01")
>
> Thanks
> Simon
>
>