Macro to Change Sheet Names to Date Range

Hello,
Does anyone have a simple Macro that I can use to Autofill the Sheet Names (Sheet1, Sheet2, etc) to a specific date range?
I would like to name the first sheet the last day of the first week of January, 2014 (20140104), then the next sheet eight days later (20140111), and so on to the end of the calendar year (20141227).
The date does not have to be in this format.

Thanks...

That did not quite do what I hoped. It only did three sheets so I figured that was because there were only three sheets open. I created 52 sheets and tried again. This kind of worked except it didn't do the date range as hoped. It treated it just like a number incrementing by 7, so instead of going from January (20140131), it just kept going counting up by seven (20140139) instead of going into February (20140206).
Can you help me by giving me a different date format...maybe mmddyyyy displayed as 01/15/2014 (for January 15, 2014, for example)?

I am so close, but so far away, so thank you for helping me.

That's perfect. Thank you so much for the code. I'll put it to good use.