Add n sheets with a "For cycle" and name them using the name ina range

[scorpione]

Hallo guys,

-Windows XP
-Excel 2010

I need to add 3 new spreadsheets giving them a name taken from a range in another sheet. I used the code below, but after that excel creates the first new spreadsheet with the correct name, it creates the second sheet with the generic name (ex. Sheet17) and then I got the following error:

Run-time error ‘1004’
Application-defined or object-defined error.


Sub NewSheets()
For i = 2 To 4
Worksheets.Add().Name = Worksheets(14).Cells(i, 8).Value
Next i
End Sub

In general I would need to create n sheets giving them the name taken from a range made of n cells. n is variable. So I thought that the cycle “For” would fit my needs. If you think that there is a better way, please let me know!

Thanks

Scorpione

 

[kevatarvind]

What is name of your worksheet 14 ?

PUT THAT NAME INSTEAD OF 14

 

[scorpione]

Hi Kevatarvind,

the name of worksheet 14 i "Broker_VBA"

Ciao
Scorpione


It works!!! Thanks a lot.
But I don't understand why it's not working with only the index.

 

[kevatarvind]

try below

Sub NewSheets()
Sheets(1).Select
For I = 2 To 4
Worksheets.Add().Name = Worksheets("Broker_VBA").Cells(I, 8).Value
Next I
End Sub

 

[Peter_SSs]

I believe your question has been answered but in case you always want to use the 14th sheet but it might not always have the same name, you could do this.

Sub NewSheets2()
  With Worksheets(14)
    For i = 2 To 4
      Worksheets.Add().Name = .Cells(i, 8).Value
    Next i
  End With
End Sub

 

[Peter_SSs]

I don't understand why it's not working with only the index.

The reason is (most likely):
When your code adds a new sheet, it adds the new sheet immediately to the left of the active sheet. So, if the active sheet is the 14th sheet or any to the left of that, your original 14th sheet will now be the 15th sheet for the second time through the loop. Most likely Cells(2,8) on what is now the 14th sheet is empty and the error is because your code is trying to name a sheet with a null string, which of course is disallowed and hence the error.

 

[kevatarvind]

bcoz when first sheet added then 14 no sheet becomes 15 thats why its giving error

 

[scorpione]

Hi Peter,

Thanks for your answer. I'm quite new using VBA, so I don't know if in this case is better to use the name of the index, but in general I would say that it is easy to operate and manipulate numbers than string.

What do you think?

Ciao
Scorpione

 

[Peter_SSs]

Hi Peter,

Thanks for your answer. I'm quite new using VBA, so I don't know if in this case is better to use the name of the index, but in general I would say that it is easy to operate and manipulate numbers than string.

What do you think?

Ciao
Scorpione

Using index numbers is risky. You never know when the sheets might be rearranged (or when somebody might insert new sheets like happened here )
If you know the name of the sheet, I would generally use that. It's not fool-proof either though as the sheet could get re-named.
At least reading code with the sheet name in it, it is clear what sheet is intended to be used.