Thank you for all of your tips! Here is part of my final solution, in
case you're interested!


i = 1
Do Until i intTotalSheets
strSheetDate = Worksheets(i).Name
intDayOfWeek = Weekday(strSheetDate)
Set rngSalesShipped = Worksheets(i).Cells.Find _
(what:="SALES SUM SHIPPED")
Set rngSalesShipped = rngSalesShipped.Offset(1, 0)
Set rngNewRec = Worksheets(i).Cells.Find _
(what:="NEW REC")
Set rngNewRec = rngNewRec.Offset(1, 0)
p = 1
Do Until p 60
tblProductTable(p, 1) = tblProductTable(p, 1) _
+ rngSalesShipped.Value
tblProductTable(p, 2) = tblProductTable(p, 2) _
+ rngNewRec
Set rngSalesShipped = rngSalesShipped.Offset(1, 0)
Set rngNewRec = rngNewRec.Offset(1, 0)
p = p + 1
Loop
i = i + 1
Loop


Thanks Again!
Andrea

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!