If I understand your problem correctly



In both Do Loops you have the same code
tablerow1 = tablerow1 + 1
It does not appear that you reset this back to row 1 at any time



I have changed your IF statements to Select Case statement .
You also set rng twice. I deleted one of these lines of code.
I was not sure if this should have been included inside your 1st D
loop

You also appear to have an error with
rNg.Parent.Parent.Activate
rNg.Parent.Activate
which I have left in


Also please note that you can combine some of your lines of code int
one action
eg

Columns("a:b").Select
Selection.Copy

can be changed to

Columns("a:b").Copy



Sub engTest()

Dim bookList
Dim i

tablerow1 = 1
tablerow = 1
i = 1

Workbooks("New Sales Attempt.xls").Worksheets("summary").Activate
Workbooks("New Sales Attempt.xls").Worksheets("summary").Unprotec
password:="nope"

Cells.Clear
Select Case theRolluplevel
Case "ttleuropesale"
myCC = Workbooks("New Sale
Attempt.xls").Sheets("ttls").Cells(tablerow, z)
Case "ttlasiansale"
myCC = Workbooks("New Sale
Attempt.xls").Sheets("ttls").Cells(tablerow, z)
Case "ttljapansale"
myCC = Workbooks("New Sale
Attempt.xls").Sheets("ttls").Cells(tablerow, z)
Case "ttlsalesadmin"
myCC = Workbooks("New Sale
Attempt.xls").Sheets("ttls").Cells(tablerow, z)
Case Else
theRolluplevel = "ttlslseng"
myCC = Workbooks("New Sale
Attempt.xls").Sheets("ttls").Cells(tablerow, z)
End Select
Do Until myCC = ""

Workbooks.Open myCC, updatelinks:=False
theSelectedNotePad = Workbooks("Ne
SalesAttempt.xls").Sheets("accounts").Cells(tabler ow1, 1)
Do Until theSelectedNotePad = ""

theSelectedNotePad = Workbooks("New Sale
Attempt.xls").Sheets("accounts").Cells(tablerow1, 1)

Set rng = Workbooks("New Sale
Attempt.xls").Worksheets("summary").Range("A1")
theRollupLevel1 = theRolluplevel & ".xls"

rng.Parent.Parent.Activate
rng.Parent.Activate
'Resets the workbook
rng.Select
ActiveSheet.Unprotect
ActiveSheet.PageSetup.PrintArea = ""
Application.ScreenUpdating = False

Columns("A:t").Select
Range("U1").Activate
Selection.Clear
Selection.EntireRow.Hidden = False
'initializes the workbook in the array

'Opens the source book in the array

Application.StatusBar = "processing " & myCC & " "
theSelectedNotePad
Workbooks(myCC).Activate
Sheets(theSelectedNotePad).Select
ActiveSheet.Unprotect ("nope")
'hardcodes linked cells
Columns("a:b").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:
_
False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
'Sets the range that will be copied to the summary sheet
Set rng1
Workbooks(myCC).Worksheets(theSelectedNotePad).Ran ge("A1:t59")
rng1.Select
'Copies the information from the source book to the summary file
i = 1
rng1.Copy Destination:=rng((i - 1) * 59 + 1).Offset(0, 1)
'determines the number of rows that will be used in the next part o
the
procedure
j = i * 60
k = 0 - j
l = 5 + j
'increments number of workbooks to multiply by number of rows i
notepad
'ActiveWorkbook.Close SaveChanges:=False
Workbooks(myNotePadSummary).Sheets(theSelectedNote Pad).Delete
Workbooks("New Sales Attempt.xls").Sheets("Summary").Cop
Befo=Workbooks(myNotePadSummary).Sheets("templa te")
ActiveSheet.DrawingObjects.Select
Selection.Delete

Application.CutCopyMode = False
'selects the first cell in the range that will determine whether th
row should be hidden

Sheets("Summary").Name = theSelectedNotePad
tablerow1 = tablerow1 + 1

Loop

Workbooks(myCC).Close savechanges:=False
tablerow = tablerow + 1
myCC = Workbooks("New SalesAttempt.xls").Sheets("ttls").Cells(tablerow
z)

Loop
End Su

--
Message posted from http://www.ExcelForum.com