Option Explicit
Sub AddWS()
Dim s As Worksheet
Set s = Sheets("list")
Dim lr As Long, i As Long
lr = s.Range("A" & Rows.Count).End(xlUp).Row
Dim sname As String
For i = 1 To lr
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = s.Range("A" & i)
Next i
End Sub