Changing Multiple sheet names by wk ending date for yr but need specific name/date format

I am new here so hopefully I will give you what you need. I have a 52 wk workbook for the year. I need to make a new workbook for 2013 and want to automatically rename the sheets based upon wk ending date. I have searched the forum for hours and found the following code:

Sub YearWorkbook2()
Dim iWeek As Integer
Dim sht As Variant
Dim sTemp As String
Dim dSDate As Date

sTemp = InputBox("Date for the first worksheet:", "End of Week?")
dSDate = CDate(sTemp)

Application.ScreenUpdating = False
Worksheets.Add After:=Worksheets(Worksheets.Count), _
Count:=(52 - Worksheets.Count)
For Each sht In Worksheets
sht.Name = Format(dSDate, "dd-mmm-yyyy")
dSDate = dSDate + 7
Next sht
Application.ScreenUpdating = True
End Sub


It works to rename as "25-Jan-2013" but what I want the sheet name to be is "Wk 1/25/13", "Wk 2/1/13", and so on. I do not know how to modify the above code (if I even can) to achieve this result. Thanks for any help.

Oh, you are right. My sheet names are "Wk 1-25-12", Wk 2-1-12", etc. Can you tell me how that is done?

Try changing this line

Please Login or Register  to view this content.

In to

Please Login or Register  to view this content.

That works great for adding "Wk" but I am also trying to change the date format from "24-Jan-2013" to "1-24-13". Thanks for any help!

Please Login or Register  to view this content.

Thank you so much. Once you showed me how you tweaked the date format, I changed it a bit more to:

Please Login or Register  to view this content.

It worked great! Love this forum. If I did not post right I am sorry. Karen

Karen,
Glad you have tweaked it!

Those of us who live outside US will aways struggle with US dates and I am sure it is also true on the other side of the Atlantic with European Dates.