Add sheet and name it. Please help. VBA to add 107 sheets

[pedie]

Hi,
I want my activeworkbook to add 107 sheets and name sheets as per value from V2 to V108. Is that posible? I current have only one sheet
I want sheet2.name = range v2.value for example and go one till all 107 more sheets are added and name.
Thanks for helping.
Pedie

 

[VoG]

Try

Sub AddSheets()
Dim ws As Worksheet, i As Long
Set ws = ActiveSheet
For i = 2 To 108
    Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = ws.Range("V" & i).Value
Next i
End Sub

 

[JackDanIce]

Assuming your names in the V range are on sheet 1? If so, try:

Sub NameMySheets ()
Application.ScreenUpdating = False
Dim i as Long
For i = 2 to 108
  Sheets.Add(after:=Sheets(Worksheets.Count)).Name = Sheets("Sheet1").Range("V" & i)
Next i
End Sub

 

[RoryA]

Why would you want a workbook with that many sheets in it?

 

[lenze]

Why would you want a workbook with that many sheets in it?

DITTO!!!
lenze

 

[JackDanIce]

Maybe they want a "special" workbook!

 

[RoryA]

I look forward to the follow up questions about creating summary reports from 107 worksheets.

 

[VoG]

Why would you want a workbook with that many sheets in it?

Dunno but I've now got one if you'd like it

 

[lenze]

Pedie, please don't tell us the ONLY difference in the sheets is ONE item (Cell), such as Client Name, Date, or some number reference!!
lenze

 

[pedie]

Vog, thank you so much. it worked perfectly.

May I please ask somemore question.
I have code thats works file.
The blue line is where I need help.
After Windows("Book1.xlsm").Activated i want
code to look for sheetname equal to activeworkbook range("B1").value then go ahead with my code

ActiveWorkbook.Activate
         Sheet1.Range("C50:L50").Copy
    Windows("Book1.xlsm").Activate
             [COLOR=blue]Worksheets("????").Activate[/COLOR]

Vog, thank alot again for always being good to me