I'm a bit busy with other things but slapped this together for you. It
should do. Another option is to create  an array, and grab all the names
first instead of going back and forth to the main sheet, but like I said
I'm busy, and this should do the trick.

Dim i As Integer
Dim a As Integer
Dim sName As String
Dim sCurrentSheet As String

Range("A1").Select
sCurrentSheet = ActiveSheet.Name
i = Cells(Rows.Count, 1).End(xlUp).Row

For a = 1 To i
sName = ActiveCell.Offset(a - 1, 0).Value
Worksheets.Add
ActiveSheet.Name = sName
Sheets(sCurrentSheet).Select
Next