如何實現“程序正在運行，請等待” VBA

Private Sub UserForm_Activate()

For i = 1 To 20000

                

DoEvents
Cells(i, 1) = i
Next

Unload UserForm1

End Sub