.
Option Explicit
Sub CreateSheetsFromAList()
Dim myCell As Range, myRange As Range
Set myRange = Sheets("Sheet1").Range("A2") 'Names List begins at B5
Set myRange = Range(myRange, myRange.End(xlDown))
Application.ScreenUpdating = False
For Each myCell In myRange
'If Not Evaluate("=ISREF('" & myCell.Value & "'!A1)") Then
Sheets.Add after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = myCell.Value
Sheets(Sheets.Count).Range("A1").Value = "Names"
myCell.EntireRow.Copy Sheets(Sheets.Count).Range("A2")
Sheets(Sheets.Count).Columns("A:A").AutoFit
myCell.EntireRow.Clear
'End If
Next
Application.ScreenUpdating = True
End Sub