hey guys,

I now have this it of code thanks to a very nice man from he

Sub NewSheets()
Dim K As Byte, Inndex As Byte
Dim Nayme As String

Sheets("LIST").Select
Range("c1").Select

Do Until ActiveCell.Value = ""

Nayme = ActiveCell.Value
Sheets("bob").Copy After:=Sheets(2)
Inndex = ActiveSheet.Index
Range("A6").Select
ActiveCell.Formula = "=LIST!C" & 1 + K

ActiveSheet.Move After:=Sheets(Inndex + K)
Sheets("LIST").Select
ActiveCell.Offset(1, 0).Select
K = K + 1

Loop
End Sub

but does anyone know how i can adjust it so that the new sheets it
creates are name from a list of values in column B... So it will create
the sheets and change the name on each sheet from the code above and
then put a name on the new tabs/ sheets from the value of the cell in
column B.

It will also work down the list so the first sheet will be the value of
B1, the second sheet will be whats in B2 etc.

Cheers

Hayley


--
Hru48
------------------------------------------------------------------------
Hru48's Profile: http://www.excelforum.com/member.php...o&userid=24895
View this thread: http://www.excelforum.com/showthread...hreadid=471743