Hi
When possible, I try to remove "Select" from any of my code. For example:
Columns("A:A").Find(What:=Company, After:=ActiveCell, LookIn:=x1Values, LookAt:=x1Whole, SearchOrder:=x1ByColumns, SearchDirection:=x1Next, MatchCase:=False).Active
ActiveCell.Offset(0,2).Copy
Sheets("Sheet2").Columns("A:A").Find(What:=Company, After:=ActiveCell, LookIn:=x1Values, LookAt:=x1Whole, SearchOrder:=x1ByColumns, SearchDirection:=x1Next, MatchCase:=False).Active
ActiveCell.Offset(0,1).Select
ActiveSheet.Paste
I've not tested your code, but give it a shot. Mess around with it alittle. Turn off screenupdating, disable events.
Put these at the beginning of your macros when applicable:
Application.ScreenUdating = false
Application.EnableEvents = false
As a good practice, set these back to treu at the end of your procedure...
Just a few ideas...
Tom
Like this thread? Share it with others