VBA Speed up

S

sparx

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??
 
B

Bob Phillips

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

Workbooks("Materials Manager -
old").Worksheets("Suppliers").Range("AC6:AV14").Copy _
Workbooks("Materials
Manager.xls").Worksheets("Suppliers").Range("AC6:AV14")

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)
 
S

sparx

Thanks for assisting - Excel file now transfers to new Excel file so
much quicker than before. Thanks for helping.
 
Top