Hi

For i = 3 To Worksheets("YourSheet").Range("A65536").end(xlup). row
sheets.add
activesheet.name= worksheets("YourSheet").cells(i,1)
Next i

HTH
Cordially
Pascal

"DB100" a écrit dans le message de
...

Hi Guys

Nice easy one ( I hope )

Is it possible to dictate the amount of worksheets to add as a fomula,
rather than having to have a list of "Sheets.Add" 15 times

I Have a list of names ( A3:A19) that need to have a worksheet created
and named after them.

So I need the macro to calulate how many names there are in the list (
It changes ) and then to create a worksheet for each and assign it that
name

thanks

David


--
DB100
------------------------------------------------------------------------
DB100's Profile:
http://www.excelforum.com/member.php...fo&userid=9176
View this thread: http://www.excelforum.com/showthread...hreadid=269222