Hi Anil try this,

Sub TEST()

Dim s As Worksheet
Set s = ActiveSheet

For i = 1 To s.Range("A65536").End(xlUp).Row

Sheets.Add
ActiveSheet.Name = s.Cells(i, 1)

Next i
s.Select

End Sub


Regards
Ankur
www.xlmacros.com




anil wrote:

In the main Sheet i.e sheet1 i have a data of 10 names, and now i want
to create 10 sheets in the same xl file with the sheet name as the
above 10 names