Как сделать прогрессбар работающим?

[Vilkov]

Друзья, подскажите, пожалуста, как сделать:
1. создать форму, и удалить из кода вба (если так можно)
2. убрать на форме кнопку закрыть.
3. не получается сделать чтобы прогресс бар на ней работал.

этот код не работает
UserForm1.Enabled = False
UserForm2.Show
UserForm2.ProgressBar1.Min = LBound(Premium.Forest)
UserForm2.ProgressBar1.Max = UBound(Premium.Forest)
UserForm2.ProgressBar2.Min = LBound(Premium.Quarter)
UserForm2.ProgressBar2.Max = UBound(Premium.Quarter)
UserForm2.Label4.Caption = UBound(Premium.Forest)
' ProgressBar3.Min = LBound(Premium.Forest)
' ProgressBar3.Max = UBound(Premium.Forest)
For i = LBound(Premium.Forest) To UBound(Premium.Forest)
UserForm2.ProgressBar1.Value = i
UserForm2.Label5.Caption = i
' ProgressBar3.Value = i

With Premium.Forest(i)
.PolicyNumber = Sheets(Link.Premium.ListName).Cells(i + 1, 1).Value
.SaleOffice = Sheets(Link.Premium.ListName).Cells(i + 1, 2).Value
.MinStartDate = Sheets(Link.Premium.ListName).Cells(i + 1, 3).Value
.Comp1 = Sheets(Link.Premium.ListName).Cells(i + 1, 4).Value
.Comp2 = Sheets(Link.Premium.ListName).Cells(i + 1, 5).Value
.SumOfWP = Sheets(Link.Premium.ListName).Cells(i + 1, 6).Value
For j = LBound(Premium.Quarter) To UBound(Premium.Quarter)
UserForm2.ProgressBar2.Value = j
If i = 1 Then
Premium.Quarter(j) = Sheets(Link.Premium.ListName).Cells(i, Premium.PeriodTotalCount - Premium.PeriodCount + j).Value
Else
.SumOfEP(j).EP = Sheets(Link.Premium.ListName).Cells(i, Premium.PeriodTotalCount - Premium.PeriodCount + j).Value
End If
Next j
End With
Next i
Workbooks(Link.Premium.Name).Close
UserForm2.Hide
UserForm1.Enabled = True

[schalexey]

попробуй после:
UserForm2.ProgressBar2.Value = j

написать DoEvents... может поможет...

[Twister]

Где-то я этот вопрос уже видел, и даже постил...