Renaming Sheets with Vba

[brettvba]

i have some code for renaming sheets which works fine until you try to do the same thing twice in a row for eg. Below


Sheets("111stk").Select
ActiveWindow.SelectedSheets.Delete
Sheets.Add
Sheets("Sheet1").Name = "111stk"
Sheets("211stk").Select
ActiveWindow.SelectedSheets.Delete
Sheets.Add
Sheets("Sheet2").Name = "211stk"
Range("G34").Select
Sheets("511stk").Select
ActiveWindow.SelectedSheets.Delete
Sheets.Add
Sheets("Sheet3").Name = "511stk"

has anyone got any better code so I don't have to refer to "Sheet3" and so on

HELp?

 

[Ivan F Moala]

Hi BrettVBA

Looking @ your current code I would say that
you are currenly adding new sheets over the old ones
ie. deleting some currently setup sheets
then adding new ones Named as the same.
What you have found out is that the sheets
counter increments in the name. So that referencing the sheet as sheet3 etc is not valid after a 2nd call.
If your sheets names are cost as you have set up then
try this


<pre/>
Option Explicit
Option Base 1

Sub AddSheets()
Dim aSheets()
Dim i As Integer

aSheets = Array("111stk", "211stk", "511stk")

Application.DisplayAlerts = False
On Error GoTo ErrAdd
For i = 1 To 3
Sheets(aSheets(i)).Delete
Sheets.Add.Name() = aSheets(i)
Next

Exit Sub

ErrAdd:
MsgBox Err.Number & ":=" & Err.Description, vbSystemModal + vbMsgBoxHelpButton, _
"Error Adding Sheet", Err.HelpFile, Err.HelpContext

End Sub
</pre>

 

[brettvba]

[No message]

 

[brettvba]

thats exactually what I needed thanks Ivan