Macro to save files in a workbook as Worksheets

[Bostiao]

I have many cost centres in a department and i have many departments.

I am trying to create a workbook for each department with its various cost centres.
So what i need is a macro which will take the cost centre from a list and save it in one workbook as a worksheet and the name of the worksheet will be the cost centre.

Your help will be greatly appreciated..thanks

 

[Davers]

This code assumes the names you want are in column C2 through C whatever:

Sub insrtSheet()

For Each i In Range("C2:C" & Range("C65536").End(xlUp).Row)

If i.Value = "" Then Exit For
    Sheets.Add.Name = i.Value
Next

End Sub

Hope this helps!

Dave