Automate naming of worksheet tabs

  • Thread starter Thread starter Graeme
  • Start date Start date
G

Graeme

I've got a spread sheet with four worksheets called:

a-0
b-0
c-0
d-0

I want to create another 36 worksheets a-1, b-1, c-1, d-1
etc.

Is there a way to make the names copy and increment
automatically?
 
Thanks very much

How about a way without addins because it's company policy
not to download anything.

Regards

Graeme
 
Try this:-

Sub AddSheets()

Application.ScreenUpdating = False

For x = 1 To 36
For y = 1 To 4
With newsht
Set newsht = Worksheets.add
n = Choose(y, "a", "b", "c", "d")
.Name = n & "-" & x
.Move After:=Sheets(Sheets.Count)
End With
Next y
Next x

Application.ScreenUpdating = True

End Sub
 
Back
Top