Зависает отображение в UserForm1

[Tigranik]

Добрый день, Вот мой простейший статус бар в котором отображается состояние работы макроса. Вот пример простейшего макроса, однако и он у меня работает плохо.
Код в модуле:

Sub my()
Application.ScreenUpdating = False
UserForm1.Show 0
For i = 1 To 50000
    Range("A" & i) = "Привет"
    UserForm1.Label1.Caption = "Столбец А заполняются словом привет..."
    UserForm1.Label2.Caption = "Заполнено " & i & " из 50000 ячеек"
    UserForm1.Repaint
Next i
For j = 1 To 50000
    Range("B" & j) = "Пока"
    UserForm1.Label1.Caption = "Столбец B заполняются словом пока..."
    UserForm1.Label2.Caption = "Заполнено " & j & " из 50000 ячеек"
    UserForm1.Repaint
Next j
UserForm1.Hide
End Sub

Во-первых, у меня почему-то когда значение доходить до 30 000 ячейки, юзерформа зависает (не отвечает), но потом в итоге макрос все же заканчивает свою работу. Как решить проблему?
Во-вторых Конопка отмена не работает… хоть защёлкайся,
Код в UserForm1:

Private Sub CommandButton1_Click()
End
End Sub

Мне кажется надо увеличить приоритет отображению, юзер форме но как это сделать?

[Tigranik]

Оказываться все элементарно и просто! Поясню для других чайников типо меня...

Просто после каждой строчки: UserForm1.Repaint нужно поставить строчку с DoEvent
И все работает как по маслу!

[Hugo121]

После каждой излишне. Достаточно после каждой сотой или тысячной - так будет быстрее.