DeanP
02-08-2019, 06:52 AM
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?
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?