Creating Sheets from a List
 

I was wondering if there is any way to create a new tab for a list of cells?
For instance, I have a list of people (88) for who I need to create
individual tabs in the same workbook so that I can paste separate information
onto each of their tabs. Is there anyway, besides manually creating 88 new
tabs, to do this?

Creating Sheets from a List
 

Hi Mike........
Are you absolutely sure this is the route you wish to take? This
configuration will be fairly difficult to administer. It's usually much
better to put all the information in a single database and then Autofilter
out reports for the individuals as needed. It depends of course on exactly
what you are doing. Consider this method, and if you choose to do it and
need help, just post back with more details....what you have, and what you
want as output.

hth
Vaya con Dios,
Chuck, CABGx3



"Mike Armstrong" wrote:

I was wondering if there is any way to create a new tab for a list of cells?
For instance, I have a list of people (88) for who I need to create
individual tabs in the same workbook so that I can paste separate information
onto each of their tabs. Is there anyway, besides manually creating 88 new
tabs, to do this?

Creating Sheets from a List
 

Assuming the list of 88 is in Sheet2's A1:A88,
try this sub, taken from a previous post by Gord Dibben ..

Sub Add_NameWS()
'Add and name sheets using list in A1:A88 in Sheet2
For i = 1 To 88
Worksheets.Add.Name = Worksheets("Sheet2").Cells(i, 1).Value
Next
End Sub

--
Max
Singapore
http://savefile.com/projects/236895
xdemechanik
---
"Mike Armstrong" wrote:
I was wondering if there is any way to create a new tab for a list of cells?
For instance, I have a list of people (88) for who I need to create
individual tabs in the same workbook so that I can paste separate information
onto each of their tabs. Is there anyway, besides manually creating 88 new
tabs, to do this?

Creating Sheets from a List
 

Max,

It errors out at the Worksheets.Add.Name = Worksheets("Sheet2").Cells(i,
1).Value line with a subscript out of range error message

"Max" wrote:

Assuming the list of 88 is in Sheet2's A1:A88,
try this sub, taken from a previous post by Gord Dibben ..

Sub Add_NameWS()
'Add and name sheets using list in A1:A88 in Sheet2
For i = 1 To 88
Worksheets.Add.Name = Worksheets("Sheet2").Cells(i, 1).Value
Next
End Sub

--
Max
Singapore
http://savefile.com/projects/236895
xdemechanik
---
"Mike Armstrong" wrote:
I was wondering if there is any way to create a new tab for a list of cells?
For instance, I have a list of people (88) for who I need to create
individual tabs in the same workbook so that I can paste separate information
onto each of their tabs. Is there anyway, besides manually creating 88 new
tabs, to do this?

Creating Sheets from a List
 

CLR,

It's for one of my clients. Not really sure their reasoning behind it, but
this is what they want to do. They basically want to take the list of names
that they have and create a new worksheet for each of the names so that they
can put information about each user on their own sheet, instead of having all
the info on one sheet.

"CLR" wrote:

Hi Mike........
Are you absolutely sure this is the route you wish to take? This
configuration will be fairly difficult to administer. It's usually much
better to put all the information in a single database and then Autofilter
out reports for the individuals as needed. It depends of course on exactly
what you are doing. Consider this method, and if you choose to do it and
need help, just post back with more details....what you have, and what you
want as output.

hth
Vaya con Dios,
Chuck, CABGx3



"Mike Armstrong" wrote:

I was wondering if there is any way to create a new tab for a list of cells?
For instance, I have a list of people (88) for who I need to create
individual tabs in the same workbook so that I can paste separate information
onto each of their tabs. Is there anyway, besides manually creating 88 new
tabs, to do this?

Creating Sheets from a List
 

It runs fine when tested here prior to posting

Pl ensure that the source list is really in a sheet named as: Sheet2
as per assumption stated

And in case it could be a line break problem
when you copy pasted the earlier sub,
here's another version w/o the line break to try:

Sub Add_NameWS()
'Add and name sheets using
' list in A1:A88 in Sheet2
For i = 1 To 88
Worksheets.Add.Name = _
Worksheets("Sheet2").Cells(i, 1).Value
Next
End Sub


Try it again, Mike ..
--
Max
Singapore
http://savefile.com/projects/236895
xdemechanik
---
"Mike Armstrong" wrote:
Max,

It errors out at the Worksheets.Add.Name = Worksheets("Sheet2").Cells(i,
1).Value line with a subscript out of range error message

Creating Sheets from a List
 

My bad Max...I missed the part where you had thrown the list into Sheet2
instead of sheet1. This works just fine. Thanks

"Max" wrote:

It runs fine when tested here prior to posting

Pl ensure that the source list is really in a sheet named as: Sheet2
as per assumption stated

And in case it could be a line break problem
when you copy pasted the earlier sub,
here's another version w/o the line break to try:

Sub Add_NameWS()
'Add and name sheets using
' list in A1:A88 in Sheet2
For i = 1 To 88
Worksheets.Add.Name = _
Worksheets("Sheet2").Cells(i, 1).Value
Next
End Sub


Try it again, Mike ..
--
Max
Singapore
http://savefile.com/projects/236895
xdemechanik
---
"Mike Armstrong" wrote:
Max,

It errors out at the Worksheets.Add.Name = Worksheets("Sheet2").Cells(i,
1).Value line with a subscript out of range error message

Creating Sheets from a List
 

No prob. Glad you got it working there.
--
Max
Singapore
http://savefile.com/projects/236895
xdemechanik
---
"Mike Armstrong" wrote in message
...
My bad Max...I missed the part where you had thrown the list into Sheet2
instead of sheet1. This works just fine. Thanks

Creating Sheets from a List
 

Max used Sheet2 to hold those 88 names. You'll have to change it the name of
the sheet that holds your names.

Mike Armstrong wrote:

Max,

It errors out at the Worksheets.Add.Name = Worksheets("Sheet2").Cells(i,
1).Value line with a subscript out of range error message

"Max" wrote:

Assuming the list of 88 is in Sheet2's A1:A88,
try this sub, taken from a previous post by Gord Dibben ..

Sub Add_NameWS()
'Add and name sheets using list in A1:A88 in Sheet2
For i = 1 To 88
Worksheets.Add.Name = Worksheets("Sheet2").Cells(i, 1).Value
Next
End Sub

--
Max
Singapore
http://savefile.com/projects/236895
xdemechanik
---
"Mike Armstrong" wrote:
I was wondering if there is any way to create a new tab for a list of cells?
For instance, I have a list of people (88) for who I need to create
individual tabs in the same workbook so that I can paste separate information
onto each of their tabs. Is there anyway, besides manually creating 88 new
tabs, to do this?

--

Dave Peterson