Private Sub UserForm_Activate() For i = 1 To 20000 DoEvents Cells(i, 1) = i Next Unload UserForm1 End Sub