Working within a workbook without activating it?

[hyyfte]

This code is extremely ineffecient. It has to activate each workbook t
do every step. Is there a way to work within a file without activatin
it?

Windows("Package Tracking.xls").Activate
Call Sheets(1).Select(True)
r = 2
Do
i = 2
Do Until IsEmpty(Cells(i, 1))
Range(Cells(i, 1), Cells(i, 15)).Select
Selection.Copy
Windows("Master.xls").Activate
Cells(r, 1).Select
ActiveSheet.Paste Link:=True
Cells(r + 1, 1).Select
Windows("Package Tracking.xls").Activate
i = i + 1
r = r + 1
Loop
ActiveSheet.Next.Select
On Error GoTo Format
Loo

 

[Bernie Deitrick]

hyyfte,

You seem to be looping through and making links row by row. It would be much
more efficient to change

Range(Cells(i, 1), Cells(i, 15)).Select
Selection.Copy

to

Range(Cells(i, 1), Cells(Cells(65536,1).End(xlUp).Row, 15)).Copy

(NB. This will only work if you don't have any filled in cells below your
block of cells in column A)

Then get rid of the "Do Until IsEmpty(Cells(i, 1))" loop.

HTH,
Bernie
MS Excel MVP