Replicate master worksheet with different names

Posted on 2012-08-31
Last Modified: 2013-01-27
Hi - I would like to replicate worksheet titled "Master" in an Excel workbook to various tabs, each tab should receive a name which will be listed in Column A of worksheet titled "List".  For example, cell A1 = "apples", cell A2 = "oranges", cell A3 = "pears", etc... The code should look at column A and automatically know how many worksheets to create based on the list of names.  There will be no spaces between each cell.  Thansk in advance!
Question by:eklin
    1 Comment
    LVL 10

    Accepted Solution

    This macro will accomplish the task:
    Sub CreateFromMaster()
    Dim i As Long
    Dim oSheet As Worksheet
        Set oSheet = Sheets("Master")
        For i = 1 To oSheet.Range("A" & oSheet.Rows.Count).End(-4162).Row
            Sheets.Add After:=Sheets(Sheets.Count)
            ActiveSheet.Name = oSheet.Cells(i, 1).Value
        Next i
    End Sub

    Open in new window


    Featured Post

    IT, Stop Being Called Into Every Meeting

    Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

    Join & Write a Comment

    Suggested Solutions

    I've recently been in need of an Excel macro that could add a letter before the text on multiple cells in an Excel document. My English is as it is, so I will try explain what it does diffrently. If you have an excel document with 2000 rows an…
    This article will guide you to convert a grid from a picture into Excel format using Microsoft OneNote and no other 3rd party application.
    This Micro Tutorial demonstrate the bugs in Microsoft Excel for Mac with Pivot Charts.
    This Micro Tutorial will demonstrate how to create pivot charts out of a data set. I also added a drop-down menu which allows to choose from different categories in the data set and the chart will automatically update.

    733 members asked questions and received personalized solutions in the past 7 days.

    Join the community of 500,000 technology professionals and ask your questions.

    Join & Ask a Question

    Need Help in Real-Time?

    Connect with top rated Experts

    19 Experts available now in Live!

    Get 1:1 Help Now