elect code

Sub elect()

Dim i As Integer
Dim j As Long

Application.ScreenUpdating = False

For i = 1 To 3000
  Application.StatusBar = i
  Cells(i + 4, 1) = i
  For j = 1 To 1108171
    Randomize
    r = Int(Rnd * 4) + 1
    Cells(i + 4, 1 + r) = Cells(i + 4, 1 + r) + 1
  Next j
Next i

Application.StatusBar = False
Application.ScreenUpdating = True

End Sub