Tab names

[Hru48]

hey guys,

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

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

 

[Tom Ogilvy]

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

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

Do Until ActiveCell.Value = ""

Nayme = ActiveCell.Value
Sheets("bob").Copy After:=Sheets(Sheets.count)
ActiveSheet.Name = Nayme
Range("A6").Select
ActiveCell.Formula = "=LIST!B" & 1 + K
Sheets("LIST").Select
ActiveCell.Offset(1, 0).Select
K = K + 1

Loop
End Sub

 

[Hru48]

Thats great, but i need the tab names to be taken from column b and th
names which are updated in a6 of each new sheet to still be taken fro
column c.

any ideas?

cheer

 

[Tom Ogilvy]

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

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

Do Until ActiveCell.Value = ""

Nayme = ActiveCell.Value
Sheets("bob").Copy After:=Sheets(Sheets.count)
ActiveSheet.Name = Nayme
Range("A6").Select
ActiveCell.Formula = "=LIST!C" & 1 + K
Sheets("LIST").Select
ActiveCell.Offset(1, 0).Select
K = K + 1

Loop
End Sub