Macro, change the name of the worksheet with the value of a cell

[dfino77]

Hi Everyone!

I need some help.

I need to create a macro with this step:

1. Select a cell (A5) for one worksheet (sheet 1)
2. Add a new worksheet (sheet 2)
3. Change the name of the new worksheet (sheet 2) with the value of the cell (E2) of this worksheet (sheet 2)
4. Go to the worksheet (sheet 1) cell (A6) and repeat all the step until the cell of the worksheet (sheet 1) is empty.

How can i do it??
Thanks in advance for your help
Kind Regards
Dfino

 

[mikerickson]

"4. Go to the worksheet (sheet 1) cell (A6) and repeat all the step until the cell of the worksheet (sheet 1) is empty."

There is a problem. When step 3 is repeated, there will be an error since only one sheet can have the tab name of the entry in A2.

Also, what do you want to happen if A2 has an illegal sheet name?

 

[Yahya]

i hope if this code will help you

Sub Test()
Dim c As Range, LR As Long
LR = Range("a" & Rows.Count).End(xlUp).Row
For Each c In Range("A5:A" & LR)
    Sheets.Add(after:=Sheets(Sheets.Count)).Name = c.Value
Next c
End Sub

 

[dfino77]

Hi!!

Thanks for the answes, however the macro does not work.

The new sheet always has a different name, because the value of the cell E2 change.

Thanks!!

 

[mikerickson]

It sounds like you have a list of names in column E (starting with row 2).
And for each of those names, you want a sheet added to the workbook and named accordingly.

What I don't understand is where column A comes in, why A5 goes with E2 and which cell goes with A6.