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

 

[Guest]

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

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