Ello Guvnor.   Yes it can be done.  Start with the following formula:

=LOWER(MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,256))

This will give you a cell containing the name of your worksheet, for example
"Week 1"

Use that cell and do a "FIND" command to get the week number, for example "1"

Using that, you can create a formula which will calculate the appropriate
start date, then the other cells can be the previous cell + 1 which will give
you what you need

Open a new workbook.

Copy PrevSheet UDF and SheetCopy macro to a General module.

Delete all but two sheets.

Name these Week1 and Week2

In A1 of Week1 enter  1/1/2008

Copy across to G1

In Week2 A1 enter  =PrevSheet(A1)+7    

Copy across to G1

Run the SheetCopy macro.

Sub SheetCopy()
Dim I As Long
On Error GoTo endit
      Application.ScreenUpdating = False
        shts = 52
          For I = 3 To shts
        ActiveSheet.Copy After:=ActiveSheet
With ActiveSheet
    .Name = "Week" & I
End With
Next I
Application.ScreenUpdating = True
endit:
End Sub

Function PrevSheet(rg As Range)
Application.Volatile

   n = Application.Caller.Parent.Index
   If n = 1 Then
       PrevSheet = CVErr(xlErrRef)
   ElseIf TypeName(Sheets(n - 1)) = "Chart" Then
       PrevSheet = CVErr(xlErrNA)
   Else
       PrevSheet = Sheets(n - 1).Range(rg.Address).Value
   End If
End Function

Gord Dibben  MS Excel MVP