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.
|