Solved

Create a new Blank Sheet for each value in a List

Posted on 2011-02-17
2
261 Views
Last Modified: 2012-05-11
Good Afternoon

I am looking to create a new blank Sheet for each value, from A2 on a Sheet named Data. The indication to stop creating new sheets is a blank cell in the A column.

Regards
0
Comment
Question by:Washcare
2 Comments
 
LVL 43

Accepted Solution

by:
Saqib Husain, Syed earned 500 total points
ID: 34916840
Sub gensheets()
For Each cel In ActiveSheet.Range("A2", Range("A2").End(xlDown))
ActiveWorkbook.Sheets.Add
ActiveSheet.Name = cel.Value
Next cel
End Sub
0
 

Author Closing Comment

by:Washcare
ID: 34916984
Many thanks
0

Featured Post

Free Tool: SSL Checker

Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This tutorial explains how to create a series of drop-down lists that are dependent upon prior selections to guide (“force”) the user to make the correct selection and reduce data errors within Microsoft Excel. Excel 2010 was used for this tutorial;…
When you see single cell contains number and text, and you have to get any date out of it seems like cracking our heads.
The viewer will learn how to use a discrete random variable to simulate the return on an investment over a period of years, create a Monte Carlo simulation using the discrete random variable, and create a graph to represent the possible returns over…
Many functions in Excel can make decisions. The most simple of these is the IF function: it returns a value depending on whether a condition you describe is true or false. Once you get the hang of using the IF function, you will find it easier to us…

856 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