The easiest way is to make a blank file with appropriate tab names, and
then make copies of that file.

Or, create a tab called "List", start your list in cell A1, and run
this code:

Sub Add_Tabs_From_List()
Dim Nayme As String
Dim K As Byte
K = 1

Range("a1").Select 'this is the first cell in List

Do Until ActiveCell.Value = "" 'Loop until a blank cell is encountered
Nayme = ActiveCell.Value
Sheets.Add
ActiveSheet.Name = Nayme
Sheets(Nayme).Move After:=Sheets(K + 1)
Sheets("List").Select
ActiveCell.Offset(1, 0).Select
K = K + 1
Loop
End Sub