How long macro takes keeps changing

[PTP86]

Hi

I've got a macro that uses the options selected on a user form.

Is there any common reasons other than computer/network performance, for why my macro in one instance takes 20 seconds to run and in another instance with exactly the same options selected on the userform it takes 240 seconds?

Thanks

 

[pbornemeier]

If any of the options deal with establishing printer settings that is not unlikely, although somehwat extreme.

Open a text file then put a bunch of statements that write an identifier and the amount of time since the last time you wrote any identifier to the text file. Run your code a few dozen times and analyze which statements are causing the variable delay.

    'Start of block to add at start of code
    Dim dteOldTime As Date
    Dim dteNewTime As Date
    Dim dteDiff As Date
    Dim iOpenFile As Integer
    Dim sPath As String
 
    dteNewTime = Now
 
    iOpenFile = FreeFile
    If sPath = "" Then sPath = Environ("TEMP")
    Open sPath & "\CodeBench.txt" For Append As iOpenFile
    sPath = ThisWorkbook.Path
    'End of block to add at start of code
 
 
 
    'Place next two code lines at multiple places in code with
    'MARKER changed to indicate where theline is in the code
    dteOldTime = dteNewTime: dteNewTime = Now: dteDiff = DateDiff("s", dteOldTime, dteNewTime)
    Write #iOpenFile, "MARKER", dteOldTime, dteNewTime, Format(dteDiff, "0")
 
    Close iOpenFile 'Add at end of code