Macro slow in Excel 2003 but not Excel 2007

tgroneck

New Member
Joined
Mar 15, 2012
Messages
2
I have a macro that, in one test, finished in under a minute with Excel 2007 and took 13 minutes in Excel 2003. I have narrowed it down to one section of code that takes all the time. Any thoughts?

Code:
On Error GoTo ErrHandler
For x = myRow To lRow
    Application.CutCopyMode = False
    myAddress = ThisWorkbook.Sheets("Master Lookup").Cells.Find(What:=accounts(x), After:=Range("A1"), LookIn:=xlValues).Address
    ThisWorkbook.Sheets("Master Lookup").Range(myAddress).EntireRow.Copy Destination:=Workbooks(fName).Sheets(1).Range("A65000").End(xlUp).Offset(1, 0)
    newRow = Workbooks(fName).Sheets(1).Range("A65000").End(xlUp).Row
    Workbooks(fName).Sheets(1).Range("G" & newRow).Value = amounts(x)
Next
On Error GoTo 0
 

Excel Facts

Fastest way to copy a worksheet?
Hold down the Ctrl key while dragging tab for Sheet1 to the right. Excel will make a copy of the worksheet.
Specifically, the line of code for "find" seems to be very slow.


myAddress = ThisWorkbook.Sheets("Master Lookup").Cells.Find(What:=accounts(x), After:=Range("A1"), LookIn:=xlValues).Address</pre>
 
Upvote 0

Forum statistics

Threads
1,226,730
Messages
6,192,703
Members
453,748
Latest member
akhtarf3

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top