I've created a userform that should act like progress toolbar and show me my actual progress in percent.
I want to show my tool bar in a for loop. But the for loop doesn't go on only if i click away the userform. What i am doing wrong?
For k = 1 To 300
pctcompl = k * 100 / 300
UserForm1.Text.Caption = pctcompl & "% Completed"
UserForm1.Bar.Width = pctcompl * 2
DoEvents
UserForm1.Show
Next k