This Macro archives order informaton to another workbook once an order is complete... But it is insanely slow!!! Please help me speed it up some!
Thanks... jbmerrel
Sub Archive()
Application.ScreenUpdating = False
Workbooks("Copy of 1 - My Orders.xls").Activate
Sheets("Orders").Select
LastRow = Range("A65536").End(xlUp).Row
For x = 2 To LastRow
Text = Range("K" & x).Value
If Text = "Complete" Then
Range("A" & x & ":M" & x).Copy
Workbooks("5 - Orders Archive.xls").Activate
Sheets("Orders").Select
NextRow = Range("A65536").End(xlUp).Row + 1
Range("A" & NextRow).Select
ActiveSheet.Paste
Workbooks("Copy of 1 - My Orders.xls").Activate
Sheets("Orders").Select
End If
Next x
End Sub
Bookmarks