Not quite sure what you want but. Make a sheet with the formatting,etc as
desired and name it 0105 for the first Friday of this year. Then run this
macro

Sub makesheets()
ff = DateValue("Jan 5, 2007")
For i = 2 To 4
Sheets("0105").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = Format(ff + (7 * i) - 7, "mmdd")
Next i
End Sub

--
Don Guillett
SalesAid Software

"Boyd Parks" <Boyd wrote in message
...
I am trying to create a workbook with 52 sheets, one for each week in a
year. There needs to be a column for each day of the week on each sheet.
I
want the Friday's date to appear as the tab's value on each sheet. And
finally, I want to be able to use &[Tab] in the heading. Ideas?