View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.worksheet.functions
JonR
 
Posts: n/a
Default Create multiple sheet tabs from multiple cells.

Here's some code that will go down from A1 to A? (until it runs into an empty
cell) on the "Master" sheet and will create and name sheet according to what
is in each cell.

HTH

JonR

Sub NewSheet()

'This assumes the cells you wish to name the sheets after are in Column A
'on the "Master" worksheet.
'inX is a variable used to count down the rows.


Dim inX As Integer

Dim stName As String

inX = 1

Do Until Cells(inX, 1).Value = ""

stName = Cells(inX, 1).Value

Sheets.Add

ActiveSheet.Name = stName

Worksheets("Master").Activate

inX = inX + 1

Loop

End Sub



"Robert Maddox" wrote:

Is it possible to make multple worksheets from a selection of multiple cells?
This would mean a selection of 10 cells would generate 10 sheets titled with
the cell conent.