ilyesmi:

Sub Makró1()
Dim WSN As String, T As Object
WSN = ActiveSheet.Name
Set T = Sheets(WSN).Range("A1").CurrentRegion
For Each CELLA In T
Sheets.Add
ActiveSheet.Name = CELLA
Next
End Sub