Hello JLatham.
I'm going to give this a try and see what I can do. If I still can't get it
I will send it to you. Thanks so much for the help, I'll let you know how I
make out.
PB

"JLatham" wrote:

Do you want to create a workbook full of 52 sheets all at once or just do
this at the end of a week when you are ready to start a new week?
A little information about the layout of your sheet(s) would help. For
instance, where is the date kept on each? Is ALL data to be copied to the
next week, or just a total of certain values?

The following code would copy the currently active sheet, placing it at the
end of the workbook and place the new date in it. Assumes date is in cell A1
of the sheets.
Sub StartNewWeek()
Dim NewDate As Date
NewDate = ActiveSheet.Range("A1") + 7
ActiveSheet.Copy After:=Sheets(Sheets.Count)
Range("A1") = NewDate
End Sub

if you want to do all 52 weeks at once:
Sub StartNewWeek()
Dim NewDate As Date
Dim LC As Integer
For LC = 1 To 51
NewDate = ActiveSheet.Range("A1") + 7
ActiveSheet.Copy After:=Sheets(Sheets.Count)
Range("A1") = NewDate
Next
End Sub



"PB" wrote:

I have made a spread sheet and I need to make one for every week of the year
and have it carry all formulas and data forward as well as have it change the
dates for each week. With out have to dot the old cut past to each and every
sheet. If anyone can help that would be GREAT!