Ron Helped Once Can you do it again?
 

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

Ron Helped Once Can you do it again?
 

Hi Tom and Piku

I have tried your method Tom and for some reason now my data is not being imported. I need to look at the code again and make sure i am not blocking something

Pikus,
i have tried a couple version of what you have witten i will try to see if i can get yous to work

Thanks for the help

Tom