Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

Workbooks("Materials Manager -
old").Worksheets("Suppliers").Range("AC6:AV14").Co py _
Workbooks("Materials
Manager.xls").Worksheets("Suppliers").Range("AC6:A V14")

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"sparx" wrote in
message ...

Can anybody shed some light on how I make the following and lots more
formula's like it run much faster or streamline the code.

Windows("Materials Manager - old").Activate
Sheets("Suppliers").Select
Range("AC6:AV14").Select
Selection.Copy
Windows("Materials Manager.xls").Activate
Sheets("Suppliers").Select
Range("AC6:AV14").Select
ActiveSheet.Paste

The code is jumping between 2 excel files - one called Materials
Manager.xls and another called Materials Manager - old.xls - both files
are open at the same time then the code and lots more liek it copies
different parts of the data from one version to the new version but
runs slow??


--
sparx
------------------------------------------------------------------------
sparx's Profile:
http://www.excelforum.com/member.php...o&userid=16787
View this thread: http://www.excelforum.com/showthread...hreadid=536705