Creating multiple sheets

[Mustakrakish]

Hi everybody,

I am strugglin with task when i have list of cost centers (appr. 100) and for each one of them i need to create new sheet with name same as that CC.

thx

 

[Trevor G]

This code will copy a worksheet 20 times. Are you copying a master sheet?

Sub test()
Dim ws As Worksheet
Dim i As Integer
Set ws = ThisWorkbook.Worksheets("WBS")
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
For i = 1 To 20
Debug.Print i
ws.Copy Sheet1
Next i

End Sub