Excel VBA Calculation Mode.bas

Sub withoutCalculationSettings()
    Dim i As Long, t As Single
    t = Timer
    With Sheet1
        For i = 1 To 1000
            .Range(.Range("A" & i), .Range("E" & i)).Formula = _
            "=randbetween(1,1000)"
        Next
    End With
    MsgBox "Done " & (Timer - t)
End Sub
Sub withCalculationSettings()
    Dim i As Long, t As Single
    t = Timer
    With Sheet1
        Application.Calculation = xlCalculationManual
        For i = 1 To 1000
            .Range(.Range("A" & i), .Range("E" & i)).Formula = _
            "=randbetween(1,1000)"
        Next
        Application.Calculation = xlCalculationAutomatic
    End With
    MsgBox "Done " & (Timer - t)
End Sub