Rename tabs from dailog box with dates

[JoCook]

I am trying to create a macro that will rename all tabs that have been named with a date mm-dd-yyyy. I would like a dialog box to pop up and ask for a starting date and then have the macro find the tab names with the lowest date and then rename them to the next years dates
For example current tabs are called 12-29-14, 1-05-2015, 1-12-2015…12-21-15
After running the macro I would like to type 12-28-15 into the dialog box and have the tabs read 12-28-2015, 1-04-2016, 1-11-2016… 12-26-2016.
Is this posable?
I have seen similar things on this form but haven’t been able to get them to work on my sheet
Your guy’s expertise would be greatly appreciated

 

[jim may]

Excel 2012
	A	B	C
1	** SheetName **
2	Previously	New Names
3	12/29/14	12/28/14
4	1/5/15	1/4/15
5	1/12/15	1/11/15
6	12/21/15	12/20/15	<< Why 12/26/15 ??
Sheet1

 

[JoCook]

Im sorry the 12-26-16 should be 12-19-16. The sheets are based off the pay week starting every monday and ending on sunday. If the week is ending in the next year the week should not be acounted for in the current year spreadsheet. The last week will then be acounted for in the spreadsheet created next year.
im wanting the year to change so the New Names would be

	A	B	C

<thead>
</thead><tbody>
[TD="align: center"]1[/TD]
[TD="align: center"]** SheetName **[/TD]
[TD="align: center"][/TD]
[TD="align: right"][/TD]

[TD="align: center"]2[/TD]
[TD="align: center"]Previously[/TD]
[TD="align: center"]New Names[/TD]
[TD="align: right"][/TD]

[TD="align: center"]3[/TD]
[TD="align: center"]12/29/14[/TD]
[TD="align: right"]12/28/15[/TD]
[TD="align: right"][/TD]

[TD="align: center"]4[/TD]
[TD="align: center"]1/5/15[/TD]
[TD="align: right"]1/4/16[/TD]
[TD="align: right"][/TD]

[TD="align: center"]5[/TD]
[TD="align: center"]1/12/15[/TD]
[TD="align: right"]1/11/16[/TD]
[TD="align: right"][/TD]

[TD="align: center"]6[/TD]
[TD="align: center"]12/21/15[/TD]
[TD="align: right"]12/26/16[/TD]

</tbody>

 

[jim may]

I've got to run out for an hour. I'll take a further look at your needs when I get back...

 

[jim may]

On a BACK-UP copy of your file.......
Place the below code in a Standard Module and then run

Sub RecreateYearsTimeSheets()
'*** Assumes your workbook ALREADY has only your 52 date-named sheets  ***
Dim w As Integer
Dim fWeek As Date
Dim mYweek As String
Worksheets(1).Select
w = 1
fWeek = Format(Application.InputBox("Enter the Monday Date of your First Tab"), "mm/dd/yy")
For w = 0 To 51    'Loop to run 52 times
mYweek = fWeek + (w * 7)
mYweek = Replace(mYweek, "/", "-")
Worksheets(w + 1).Name = mYweek
Next w
End Sub

 

[JoCook]

that works great! than you! i do have a question however regarding your assumption. I do have a few sheets that are summerys and the like is there a way I can prevent them form getting changed?

 

[jim may]

Move the position of the few sheets to before the weekly sheets, then change the 0 to 51. To. 2 to 53; you can remove the code line w=1 also..

 

[JoCook]

that works well thank you very much!