You could try the following code:-
Dim ws As Worksheet
Dim x As Integer
x = 1
Do While Sheets("Sheet1").Cells(x, 1).Value <> ""
Set ws = Sheets.Add
ws.Name = Sheets("Sheet1").Cells(x, 1).Value
x = x + 1
Enter the code in a standard module. The code extracts the sheet names from a list in Column A, Sheet1.
Attached is my test work book for you to peruse:-
I hope that this helps.