Hi folks:

I have an Excel file with a list of 150 names or more, one name per
cell in column A. This list changes weekly. I need to create a
workbook with using those names one name per worksheet, meaning each
tab name in the new workbook would be the list.

Any thoughts?

thanks in advance :)


--
halem2
------------------------------------------------------------------------
halem2's Profile: http://www.excelforum.com/member.php...fo&userid=9930
View this thread: http://www.excelforum.com/showthread...hreadid=556892

On Thu, 29 Jun 2006 08:38:36 -0500, halem2 wrote:

Hi folks:

I have an Excel file with a list of 150 names or more, one name per
cell in column A. This list changes weekly. I need to create a
workbook with using those names one name per worksheet, meaning each
tab name in the new workbook would be the list.

Any thoughts?

thanks in advance :)

Sub GenerateWB()
Dim rng As Excel.Range
Dim wkb As Excel.Workbook
Workbooks.Add
Set wkb = ActiveWorkbook
Set rng = Me.Range("A1")
Do While rng.Value < ""
wkb.Sheets.Add
wkb.ActiveSheet.Name = rng.Value
Set rng = rng.Offset(1, 0)
Loop
End Sub

--
PL

thanks. I'm getting en error pointing to invalid use of ME.


--
halem2
------------------------------------------------------------------------
halem2's Profile: http://www.excelforum.com/member.php...fo&userid=9930
View this thread: http://www.excelforum.com/showthread...hreadid=556892

On Thu, 29 Jun 2006 09:18:15 -0500, halem2 wrote:

thanks. I'm getting en error pointing to invalid use of ME.

This code works fine if you put in into a worksheet module. If you want to
use it as a separate module, use ThisWorkbook.Sheets("sheetname") instead
of Me

--
PL

thanks a lot. I was able to ncorporate your code into my project.
Thanks again.


--
halem2
------------------------------------------------------------------------
halem2's Profile: http://www.excelforum.com/member.php...fo&userid=9930
View this thread: http://www.excelforum.com/showthread...hreadid=556892