These are 7 new pages in a new workbook or are you using one workboo
for an extended period of time?
You could refer to the last seven sheets added like this:

x = Sheets.Count
y = x - 6
For z = y To x
dailyTotal = Sheets(z).Cells(row, col).Value
Sheets("Weekly Summary").Cells(row, col).Value = dailyTotal
Next z

Hope this helps... - Piku

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