Copy/Paste Multiple Workbooks Speedup

[helpexcel]

Hi - I'm using the code below to copy and paste from one workbook to another, but it takes forever. Is there a better way to do it? Thanks!

Sub Macro1()


Application.ScreenUpdating = False


Set ws1 = ThisWorkbook.Sheets("Dump")
Set ws2 = Workbooks("DATA").Sheets("Info")


With ws1
.Range("F34:G34").Value = ws2.Range("AG78:AH78").Value
.Range("E36").Value = ws2.Range("AG95").Value
.Range("G36").Value = ws2.Range("AH95").Value
.Range("F124").Value = ws2.Range("AC111").Value
.Range("G124").Value = ws2.Range("AC106").Value


.Range("E124") = .Range("F124") + .Range("G124")
.Range("E124").Value = .Range("E124").Value
.Range("F124:H124").Clear
End With


End Sub

 

[jmacleary]

Hi there

I have just tried this out and its almost instant. I suspect you have got formulas in the workbook you are copying into and excel is recalculating each time? If so, try putting

Application.Calculation = xlCalculationManual

at the top and

Application.Calculation = xlCalculationAutomatic

at the end. (I would also add

Application.ScreenUpdating = True

as well).