Sheet names as dates

[tapsmiled]

I am a total VBA noob, so please forgive me.

Attached you will find a 7 day workbook. I have labeled each sheet as a day of the week, and I would prefer to use the date. At the top of each sheet, I want the date as well. On the first sheet, I used the =TODAY() function. On the summary page where I listed the dates, I used the TODAY result from the SAT sheet then just used a +1 for the additional dates. I want the user(s) to select the proper sheet based on the current day of the week (or date), and I would like each of those sheets to be named as that date as well as have the dates appear in the B3 and B45 cells on each respective sheet. I hope this makes sense. i believe it will require VBA. I have NO idea how to add or apply VBA, so a step-by-step would be greatly appreciated. Thanks!!

[tapsmiled]

I should have stated that a new version of the workbook will be created each Saturday, so if you look at the Date (B3) it is supposed to reflect Saturday's date (which is why I used the TODAY function there).

Also, is there a way to automate the creation of multiple versions of this workbook so that each Saturday starts with the appropriate date, or do I just have to manually create them and manually insert the dates?

[tapsmiled]

I went back and changed the values for B3 on each page to reference B3 on SAT, so the dates on each page are no longer an issue, but I still want the first date to reflect whatever the date is on Saturday then that date is locked in as a value.

[tapsmiled]

Solved it myself. I will leave the first date B3 blank and have it be filled in by the user, and all the subsequent dates check for a value then add the appropriate number of days based on which page they are on.

[tapsmiled]

Found this in a very old thread. Will try it tomorrow.



Private Sub Workbook_NewSheet(ByVal Sh As Object)

Application.ScreenUpdating = False


Sheets("start").Cells.Copy Destination:=Sh.Range("A1")
Sheets("start").Range("A1").Value = Sheets("start").Range("A1").Value + 1
ActiveSheet.Name = Format(Range("A1").Value, "dd.mm.yy ddd")


Application.ScreenUpdating = True

End Sub

[tapsmiled]

I tried to enter the above code into my workbook, but i'm sure that i must be doing something wrong. Can someone please look at the previous posts in this thread and, using the code in the post above this one, please tell me how to do it. Thanks!

[moonsaga]

try this out .. the code will create a new sheet from a template sheet and name the tab with the 3 letter day (example: Sun, Mon etc..)but you will need to run the code on the date that the new sheet is needed .. run the code on Sat to create the Sat sheet.. the only problem with this will be with your summary sheet formulas that reference the sheet name.
Also it will place the date on the sheet in cells B3 and B45