Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code to create worksheet names based on the values in the selectedrange
Is there any chance someone would know some code that allows me to create new worksheets with the names of a selection of cells. So, for example, if I selected the following cells: Rice Macaroni Chicken Hash Browns I would like the macro to create four sheets by those names. Any suggestions would be appreciated. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code to create worksheet names based on the values in the selected range
Try some code like the following. The code tests whether a sheet already
exists with the particular name, and won't create a new sheet if that name is already in use, but it doesn't test whether the name is valid for a new worksheet. Sub CreateSheetsFromList() Dim R As Range For Each R In Selection.Cells If R.Text < vbNullString Then If SheetExists(R.Text, ThisWorkbook) = False Then With ThisWorkbook.Worksheets .Add(after:=.Item(.Count)).Name = R.Text End With End If End If Next R End Sub Private Function SheetExists(SHName As String, WB As Workbook) As Boolean On Error Resume Next SheetExists = CBool(Len(WB.Worksheets(SHName).Name)) End Function -- Cordially, Chip Pearson Microsoft Most Valuable Professional Excel Product Group Pearson Software Consulting, LLC www.cpearson.com (email on web site) "Mike C" wrote in message ... Is there any chance someone would know some code that allows me to create new worksheets with the names of a selection of cells. So, for example, if I selected the following cells: Rice Macaroni Chicken Hash Browns I would like the macro to create four sheets by those names. Any suggestions would be appreciated. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code to create worksheet names based on the values in the selected range
Here is a rough one...
Mark Sub test() Dim row As Long Dim mysheetname As String Dim myworksheet As String myworksheet = ActiveSheet.Name For row = 1 To 4 mysheetname = Cells(row, 1).Text Sheets.Add ActiveSheet.Name = mysheetname Sheets(myworksheet).Select Next End Sub "Mike C" wrote in message ... Is there any chance someone would know some code that allows me to create new worksheets with the names of a selection of cells. So, for example, if I selected the following cells: Rice Macaroni Chicken Hash Browns I would like the macro to create four sheets by those names. Any suggestions would be appreciated. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
using the Excel generic worksheet names instead of user-given names in code | Excel Discussion (Misc queries) | |||
Use Cell Values to Create Tabs with specific names | Excel Programming | |||
How dynamically create routing slip based on names in specific cel | Excel Discussion (Misc queries) | |||
Count unique values and create list based on these values | Excel Worksheet Functions | |||
Create seperate xls files with names based on cell text | Excel Programming |