Still Running Excel 2007 on Windows 7
I have a program which loads a UserForm (attached image) with the following code:
Code: Select all
Private Sub Workbook_Open()
Call MultiPass.Re_size
UserForm1.LabelProgress.Width = 0
UserForm1.Show
DoEvents
End Sub
I have noticed that on occasion the UerForm disappears/reappears with or without the caption and Label1 while executing the following For-Next snippet. Being suspicious that the form was being missed on a ScreenUpdating command, I have liberally populated the code with "DoEvents" commands; but still get caught occasionally.
Code: Select all
For delay = Prep_Time To 0 Step -1
Range("A1") = delay
DoEvents
Application.ScreenUpdating = True
DoEvents
ctr = ctr + 1
Application.Wait TimeValue("0:00:" & Format(ctr, "00")) + start
Next delay
I am attaching the latest version of the file for those who wish to play with it. Any guidance will be greatly appreciated.
You do not have the required permissions to view the files attached to this post.