new 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

 

[Dave O]

Good morning, Hayley-
Replace this line
Nayme = ActiveCell.Value

.... with this one:
Nayme = Activecell.offset(0,-1).value

This will pick up the value in column B instead of column C.

 

[Hru48]

Good afternoon, hope you are well

I replaced the line but it hasnt had any effect.. my sheets are stil
being called bob(2) ... bob(3) ..etc.

 

[Hru48]

ok, figured it out! I forgot to put in

ActiveSheet.Name = Nayme

but now that is there it works grand, thanks alot for all your help!

 

[Dave O]

Hayley- Our messages have crossed, what with two separate posts. Do
you mind contacting me via email? The address is cyclezen AT yahoo DOT
com

 

[Dave O]

I just figured that out too. Glad to help!