philfer
12-29-2007, 03:39 AM
I have a procedure that takes a while to run and I am trying to use a UserForm with a label that starts with width zero and increases with each iteration of the loop.
I use pctDone (dim as single) = counter/totalrows
Then userform.Show
With Userform
.frameProgress.Caption = Format (pctDone,"0%")
.labelProgress.Width = pctDone * . frameProgress.Width
End With
The code I "copied" then uses "Do Events" which when I type into Excel, it raises an eyebrow and looks at me as if to say "amateur"
Is there a new way to say "Do Events"
Is there anything else wrong with what I'm doing
Please help
I use pctDone (dim as single) = counter/totalrows
Then userform.Show
With Userform
.frameProgress.Caption = Format (pctDone,"0%")
.labelProgress.Width = pctDone * . frameProgress.Width
End With
The code I "copied" then uses "Do Events" which when I type into Excel, it raises an eyebrow and looks at me as if to say "amateur"
Is there a new way to say "Do Events"
Is there anything else wrong with what I'm doing
Please help