Sub test()
Dim i As Long
Dim seccount As Single
Const nloops =  100 

    With Application
        .ScreenUpdating = False
        .EnableEvents = False
        .Calculation = xlCalculationManual
    End With
    
    seccount = Timer()
    
    For i =  1  To nloops
        Range("rr").Dirty
        Range("rr").Calculate
    Next i
    
    Debug.Print (Timer() - seccount) / nloops

    With Application
        .ScreenUpdating = True
        .EnableEvents = True
        .Calculation = xlCalculationAutomatic
    End With

End Sub