如何实现“程序正在运行，请等待” VBA

Private Sub UserForm_Activate()

For i = 1 To 20000

                

DoEvents
Cells(i, 1) = i
Next

Unload UserForm1

End Sub