I have a list of 100 names that I need to make worksheets for each one. Is
there a way to do this automatically?

Sub namesheetsbottomup()
With Sheets("sheet1")'where list is in col A
For i = .Cells(.Rows.Count, "a").End(xlUp).Row To 2 Step -1
Sheets.Add.Name = .Cells(i, "a")
Next
End With
End Sub


--
Don Guillett
SalesAid Software

"Scott@CW" wrote in message
...
I have a list of 100 names that I need to make worksheets for each one. Is
there a way to do this automatically?

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?

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?

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?

This latest Macro isn't working for me, and this is exactly what I need.
Help, anyone?

"Gord Dibben" wrote:

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?

"isn't working" is pretty much vague doncha think? u wanna be a teensie bit
more specific?

Make sure that the sheet you want copied is the active sheet before you
start the macro, and that the sheet named "Master" has the list of new
sheets you want created.

HTH,

"e12762r" wrote in message
...
This latest Macro isn't working for me, and this is exactly what I need.
Help, anyone?

"Gord Dibben" wrote:

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?

Isn't working? Falls over? Does nothing? Does something but not what you
want? Some help maybe?

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"e12762r" wrote in message
...
This latest Macro isn't working for me, and this is exactly what I need.
Help, anyone?

"Gord Dibben" wrote:

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?