adding a week to sheet names

[ajm]

hi all, rushing to get away on a break with the kids and my brain has frozen up. i have a workbook to which I copy a weekly summary of data. the new week is then compared to the old week to get the difference. My tab names are in the format "Projects Summary 03032009", "Projects Summary 10032009", etc. So far, I have just been adding them manually and its easy enough. while i am away, someone else will be doing all this and they have no idea. I am writing a little macro that will add the new sheet and then I need to name it "Projects Summary "plus 7 days. if i had hair, i would pull it out....

 

[westconn1]

n= "10032009"
newname = dateadd("d",7,dateserial(mid(n,6),mid(n,3,2),left(n,2)))