Renaming multiple worksheets from list

[DeanP]

I am adding 3 sheets to my workbook and want to rename each based on a list. I am able to add the 3 sheets, but the renaming from list doesn't work.


Code:

Dim i As Long
With ThisWorkbook
For i = 1 To 3
Worksheets.Add after:=Worksheets(Worksheets.Count)
Sheets(i).Name = Worksheets("Business Structure").Cells(i, 17).Value
Next i
End With
End Sub


Any advice?

[Paul_Hossler]

After you .Add the sheet, your "I" loop variable still points to the last one, not the one you just added

Try one of these




Sub AddSheets()

Dim i As Long

With ThisWorkbook
For i = 1 To 3
Worksheets.Add after:=Worksheets(Worksheets.Count)
Sheets(i + 1).Name = Worksheets("Business Structure").Cells(i, 17).Value
Next i
End With
End Sub





Sub AddSheets()
Dim i As Long
With ThisWorkbook
For i = 1 To 3
Worksheets.Add after:=Worksheets(Worksheets.Count)
Sheets(Worksheets.Count).Name = Worksheets("Business Structure").Cells(i, 17).Value
Next i
End With
End Sub

[DeanP]

Amazing! Thank you Paul