Creating worksheets depending on cells on a worksheet

**ekirimkan** · 09-24-2009, 02:26 PM

Hi,

I am trying to create worksheets and naming them automatically depending on the name you input in various cells in another worksheet... For example:

In worksheet 1, i have cells A1, A2, A3, A4, A5, ....
If I input "costs" in cell A1, then it will create a new worksheet called "costs".
If I then also input "income" in cell A2, it will also create a new worksheet after the "costs" worksheet called "income".
And so on...

Does anyone know a simple way of doing this?

Any help appreciated...

Thanks!

E.

**Shijesh Kumar** · 09-24-2009, 02:35 PM

sample code for the same

Code:

Sub create_sheets()
    Cells(1, 1).Activate
    Set cur = ActiveCell.CurrentRegion
    For Each xcell In cur
        Worksheets.Add
        ActiveSheet.Name = xcell
    Next xcell
End Sub

Thread: Creating worksheets depending on cells on a worksheet

Thread Tools

Display

Creating worksheets depending on cells on a worksheet

Re: Creating worksheets depending on cells on a worksheet

Thread Information

Users Browsing this Thread

Tags for this Thread

Bookmarks

Bookmarks

Posting Permissions