Optimizing VBA Code

[djt76010]

I have written the following code to test the efficiency of 3 different user definded functions. Looking at the results, runs 2 through 10 are taking about 30% longer to run than the 1st run. Is there something that can be done to fix this?

Sub Macro1()

Dim dtstart As Date
Dim iptr As Long
Dim I As Integer

For I = 1 To 10
    dtstart = Now()
    For iptr = 1 To 1000000
       Sheets("Sheet1").Cells(1, 1).Value = iptr
    Next iptr
    Sheets("Sheet1").Cells(I, 13).Value = Now() - dtstart
Next I

End Sub

 

[mikerickson]

What do you mean "fix"?
The before and after of your code and this are identical, but I don't think this is the kind of answer you want.

Dim dtstart As Date
Dim dtduration As Date
Dim I As Integer
dtstart = Now()
    
For iptr = 1 To 1000000
   Sheets("Sheet1").Cells(1, 1).Value = iptr
Next iptr
    
dtDuration = Now()- dtStart

Sheets("Sheet1").Cells(I, 13).Value = dtDuration

For i = 1 to 9
    Wait dtDuration
Next i