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.