Auto generate a date as a name for worksheets in a workbook

**austinott** · 12-12-2012, 11:05 AM

Hello, I am creating a workbook to track hours worked, vacay hours accrued, etc. I have it set up to use each worksheet as a pay period. How could I auto generate sheet tabs for every two weeks. For example 12/16/12, 12/30/12, etc. Also is there a way to add an employee row in a worksheet and have it automatically added in all the following pay periods.
Thanks

**Jakobshavn** · 12-12-2012, 11:15 AM

Here is a tab maker macro:

Sub SheetMaker()
For i = 0 To 99
Sheets.Add
    ActiveSheet.Name = Format(DateSerial(2012, 12, 16) + 14 * (i - 1), "mm_dd_yyyy")
Next
End Sub

**austinott** · 12-12-2012, 12:13 PM

Awesome! Thanks. Any idea how to write a formula so that if I add a row and name on the first date (12_16_2012) then it adds it to the rest of the date/sheets?