Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Rename Worksheets to Sequential Dates
I want to create a workbook with 366 worksheets each named for a day o
the year (1-Jan,2-Jan,3-Jan...). Is there VBA code that will create worksheets and rename them usin days of the year? Thanks -- Message posted from http://www.ExcelForum.com |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Rename Worksheets to Sequential Dates
Hi
though not tested I would assume (depending on the data on your spreadsheets) you won't be able to create 366 separate sheets -- Regards Frank Kabel Frankfurt, Germany "nchristus " schrieb im Newsbeitrag ... I want to create a workbook with 366 worksheets each named for a day of the year (1-Jan,2-Jan,3-Jan...). Is there VBA code that will create worksheets and rename them using days of the year? Thanks. --- Message posted from http://www.ExcelForum.com/ |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Rename Worksheets to Sequential Dates
You could do it this way:
Sub CreateSheets() Dim I As Integer For I = 1 To 365 Sheets.Add AFTER:=Sheets(Sheets.Count) ActiveSheet.Name = Format(I, "d-Mmm") Next End Sub Robert Flanagan Macro Systems Delaware, U.S. 302-234-9857 http://www.add-ins.com Productivity add-ins and downloadable books on VB macros for Excel "nchristus " wrote in message ... I want to create a workbook with 366 worksheets each named for a day of the year (1-Jan,2-Jan,3-Jan...). Is there VBA code that will create worksheets and rename them using days of the year? Thanks. --- Message posted from http://www.ExcelForum.com/ |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Rename Worksheets to Sequential Dates
This assumes that you have just one sheet in your workbook before you start
and you want it to be the "1-Jan" sheet: Sub test() Dim I As Long Dim sheet_date As Date Application.ScreenUpdating = False 'On Error GoTo err_handler sheet_date = #1/1/2004# ThisWorkbook.Worksheets(1).Name = Day(sheet_date) & "-" & Format((sheet_date), "mmm") For I = 1 To 365 sheet_date = sheet_date + 1 ThisWorkbook.Worksheets.Add , AFTER:=ThisWorkbook.Worksheets(ThisWorkbook.Worksh eets.Count) ActiveSheet.Name = Day(sheet_date) & "-" & Format((sheet_date), "mmm") Next I err_handler: Application.ScreenUpdating = True End Sub hth, Doug Glancy "nchristus " wrote in message ... I want to create a workbook with 366 worksheets each named for a day of the year (1-Jan,2-Jan,3-Jan...). Is there VBA code that will create worksheets and rename them using days of the year? Thanks. --- Message posted from http://www.ExcelForum.com/ |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Sequential dates across worksheets | Excel Discussion (Misc queries) | |||
Sequential dates. | Excel Discussion (Misc queries) | |||
How do I get non-sequential dates on X-axis | Charts and Charting in Excel | |||
Sequential dates in different cells | Excel Worksheet Functions | |||
Sequential dates in different cells | Excel Worksheet Functions |