Hi
Try

Sub test()
Dim i As Long
Dim ws As Worksheet
Dim LR As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To LR
Set ws = Worksheets.Add(After:=Sheets(Sheets.Count))
ws.Name = Sheets("sheet1").Cells(i, 1)
Next i
End Sub


On Sun, Jul 10, 2011 at 10:23 PM, SAJID MEMON <sajidwi...@hotmail.com>wrote:

>  Dears
>
> I have enclosed a simple file with my problem plz help me in my project.
>
> awaiting your positive responce
>
> Sajid Memon
>
> --
>
> ----------------------------------------------------------------------------------
> Some important links for excel users:
> 1. Follow us on TWITTER for tips tricks and links :
> http://twitter.com/exceldailytip
> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
> 3. Excel tutorials at http://www.excel-macros.blogspot.com
> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>
> To post to this group, send email to excel-macros@googlegroups.com
>
> <><><><><><><><><><><><><><><><><><><><><><>
> Like our page on facebook , Just follow below link
> http://www.facebook.com/discussexcel
>

-- 
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links : 
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
 
To post to this group, send email to excel-macros@googlegroups.com

<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel

Reply via email to