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?
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?