Add multiple sheets and name from a list

[Blunder1]

Hi,

I need a but of code to add 83 tabs and name them from a list in excel. I can add the sheets Ok, sheets.add, count:=83 but i would like to name them easily from this list.

Thanks in advance

Blunder

 

[VoG]

This expects a list of sheet names in column A of Sheet1 and will create and name however many sheets are in that list

Sub CreateNewSheets()
Dim i As Long, LR As Long
With Sheets("Sheet1")
    LR = .Range("A" & Rows.Count).End(xlUp).Row
    For i = 1 To LR
        Sheets.Add after:=Sheets(Sheets.Count)
        ActiveSheet.Name = .Range("A" & i).Value
    Next i
End With
End Sub

 

[Blunder1]

Perfect, thank you