View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.setup
Gord Dibben Gord Dibben is offline
external usenet poster
 
Posts: 22,906
Default Spreadsheet with 12 tabs all formatted the same. XL2003

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.