Renaming a workbook

Hi,

Please find attach sheet.

Demo.xlsm


I have a Demo Workbook . In it i have "Main" sheet which contains a button as"Next Week" which when clicked will change the date in "abc" sheet cell C1 to next week date (i.e. from 14-June-2015 to selected date.)

I wanted the sheets named "sheet1,sheet2... sheet7" to change name accordingly to what the date in respective c1,E1...O1

ie.
c1 value date will rename to 14-Jun-15
E1 value date will rename to 15-Jun-15
G1 value date will rename to 16-Jun-15, etc..


Thanks in Advance .

Regards,
MS