Naming Worksheet tabs
Assuming Master sheet is named "Master" and has a list in A1:A100
Sub Copy_Sheet()
Dim rCell As Range
For Each rCell In Sheets("Master").Range("A1:A100")
ActiveSheet.Copy After:=ActiveSheet
ActiveSheet.Name = rCell.Value
ActiveSheet.Range("B2").Value = rCell.Value
Next rCell
End Sub
Each new sheet will be a copy of "Master" with a new name and have that sheet
name in B2
Gord
On Thu, 14 Dec 2006 12:03:01 -0800, Scott@CW
wrote:
Man that ROCKS!!!
OK next step I have one master sheet that is preformatted with a ton of
formulas. Can I somehow have it copy the sheet and name each sheet from a
list still. If so then I need the tab name in cell B2 for each sheet. Either
way this has saved me about two hours of sorting and creation.
"Gord Dibben" wrote:
Scott
With a list of names in A1:A100 on the active sheet, this macro will insert 100
new sheets each with a name from A1:A100.
Sub Add_Sheets22()
Dim rCell As Range
For Each rCell In Range("A1:A100")
With Worksheets.Add(After:=Worksheets(Worksheets.Count) )
.Name = rCell.Value
End With
Next rCell
End Sub
Gord Dibben MS Excel MVP
On Thu, 14 Dec 2006 11:02:01 -0800, Scott@CW
wrote:
I have a list of 100 names that I need to make worksheets for each one. Is
there a way to do this automatically?
|