Home |
Search |
Today's Posts |
#2
![]()
Posted to microsoft.public.excel.setup
|
|||
|
|||
![]()
Several ways to do this.
Insert sheets until you have 12 sheets. Right-click and "select all sheets" Do what you want to active sheet and will be done to all. If you already have one sheet as you wish, simply copy that sheet once. Now you have two sheets. Select both sheets and copy. Now you have 4 sheets Select those 4 and copy again etc. Do it with a macro. Sub CreateNameSheets() ' by Dave Peterson ' List sheetnames required in col A in a sheet: List ' Sub will copy sheets based on the sheet named as: Template ' and name the sheets accordingly Dim TemplateWks As Worksheet Dim ListWks As Worksheet Dim ListRng As Range Dim mycell As Range Set TemplateWks = Worksheets("Template") Set ListWks = Worksheets("list") With ListWks Set ListRng = .Range("a1", .Cells(.Rows.Count, "A").End(xlUp)) End With For Each mycell In ListRng.Cells TemplateWks.Copy After:=Worksheets(Worksheets.Count) On Error Resume Next ActiveSheet.Name = mycell.Value If Err.Number < 0 Then MsgBox "Please fix: " & ActiveSheet.Name Err.Clear End If On Error GoTo 0 Next mycell End Sub Gord Dibben MS Excel MVP On Wed, 13 Jan 2010 14:09:01 -0800, pegbill1 wrote: I have Excel 2003 at work and 2007 at home. I am setting up a spreadsheet with 12 tabs (months) and I want them to have the same format in all 12. I know there has to be a way to do this quickly. I can do it in 2007 maybe 2003 does not have that capability. |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Can I pass arguments to my formatted empty spreadsheet file? | Excel Discussion (Misc queries) | |||
plain text opens instead of formatted spreadsheet | Excel Discussion (Misc queries) | |||
XL2003 Paste not keeping link to source spreadsheet | Excel Discussion (Misc queries) | |||
XL2003: Count formatted cells (not coloured)... | Excel Worksheet Functions | |||
XL2003 won't print a col of my spreadsheet | Excel Discussion (Misc queries) |