Hallo,

im Prinzip so:

Option Explicit

Public Sub test()
Dim objCell As Range
Application.ScreenUpdating = False
For Each objCell In Range(Cells(1, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1))
    With Worksheets.Add(After:=ActiveSheet)
         Call objCell.EntireRow.Copy(Destination:=.Cells(1, 1))
         .Name = objCell.Value
    End With
Next
Application.ScreenUpdating = True
End Sub

Gruß,