Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Auto naming Tabs in a Workbook
Is there a way to automatically name/rename a tab based on the cell contents
in a worksheet? Thanks. |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Auto naming Tabs in a Workbook
Johnny,
Here is a start for you. It renames based on the values of column A. So, if you start a blank workbook with 3 sheets and write in the cells A1 = "pig" A2 = "horse" A3 = "cow" then run this program, you will end up with 3 sheets called pig, horse and cow. Sub namesheets() Dim x As Integer For x = 1 To Sheets.Count Sheets(x).Name = Cells(x, 1).Value Next x End Sub -- Allllen "Johnny" wrote: Is there a way to automatically name/rename a tab based on the cell contents in a worksheet? Thanks. |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Auto naming Tabs in a Workbook
Thanks for your reply Alan. In my workbook, I have 4 workseets in which I
do not want to rename the tabs. Let me be a little more discriptive on what I need. I want to be name each tab based on the cell contains in particular that particular worksheet. For examples, if cell A1 in worksheet 1 is "Bob" then name the tab Bob. Can you help? Thanks. "Allllen" wrote: Johnny, Here is a start for you. It renames based on the values of column A. So, if you start a blank workbook with 3 sheets and write in the cells A1 = "pig" A2 = "horse" A3 = "cow" then run this program, you will end up with 3 sheets called pig, horse and cow. Sub namesheets() Dim x As Integer For x = 1 To Sheets.Count Sheets(x).Name = Cells(x, 1).Value Next x End Sub -- Allllen "Johnny" wrote: Is there a way to automatically name/rename a tab based on the cell contents in a worksheet? Thanks. |
#5
Posted to microsoft.public.excel.misc
|
|||
|
|||
Auto naming Tabs in a Workbook
I meant to say that I did not want to rename all of the tabs in the workbook.
I do however wish to auto re-name only a select view base on the cells contents in that tab. "Johnny" wrote: Thanks for your reply Alan. In my workbook, I have 4 workseets in which I do not want to rename the tabs. Let me be a little more discriptive on what I need. I want to be name each tab based on the cell contains in particular that particular worksheet. For examples, if cell A1 in worksheet 1 is "Bob" then name the tab Bob. Can you help? Thanks. "Allllen" wrote: Johnny, Here is a start for you. It renames based on the values of column A. So, if you start a blank workbook with 3 sheets and write in the cells A1 = "pig" A2 = "horse" A3 = "cow" then run this program, you will end up with 3 sheets called pig, horse and cow. Sub namesheets() Dim x As Integer For x = 1 To Sheets.Count Sheets(x).Name = Cells(x, 1).Value Next x End Sub -- Allllen "Johnny" wrote: Is there a way to automatically name/rename a tab based on the cell contents in a worksheet? Thanks. |
#6
Posted to microsoft.public.excel.misc
|
|||
|
|||
Auto naming Tabs in a Workbook
Johnny
You can paste this code into the sheet module of those you wish to rename automatically. Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Cells.Count 1 Then Exit Sub If Intersect(Target, Me.Range("A1")) Is Nothing Then Exit Sub On Error GoTo CleanUp Application.EnableEvents = False Me.Name = Range("A1").Text CleanUp: Application.EnableEvents = True End Sub This is sheet event code. Right-click on the sheet tab and "View Code" Copy/paste the above into that sheet module. Change the value of A1 and sheet name will follow. Gord Dibben MS Excel MVP On Tue, 29 Aug 2006 05:28:01 -0700, Johnny wrote: I meant to say that I did not want to rename all of the tabs in the workbook. I do however wish to auto re-name only a select view base on the cells contents in that tab. "Johnny" wrote: Thanks for your reply Alan. In my workbook, I have 4 workseets in which I do not want to rename the tabs. Let me be a little more discriptive on what I need. I want to be name each tab based on the cell contains in particular that particular worksheet. For examples, if cell A1 in worksheet 1 is "Bob" then name the tab Bob. Can you help? Thanks. "Allllen" wrote: Johnny, Here is a start for you. It renames based on the values of column A. So, if you start a blank workbook with 3 sheets and write in the cells A1 = "pig" A2 = "horse" A3 = "cow" then run this program, you will end up with 3 sheets called pig, horse and cow. Sub namesheets() Dim x As Integer For x = 1 To Sheets.Count Sheets(x).Name = Cells(x, 1).Value Next x End Sub -- Allllen "Johnny" wrote: Is there a way to automatically name/rename a tab based on the cell contents in a worksheet? Thanks. Gord Dibben MS Excel MVP |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Can you sort sheet tabs in a workbook | Excel Discussion (Misc queries) | |||
How do I change the auto filter tabs from blue to red? | Setting up and Configuration of Excel | |||
selecting multiple sheet tabs and open another workbook | Excel Discussion (Misc queries) | |||
Setup Entire Workbook to print all tabs Duplex | Excel Worksheet Functions | |||
Auto Fill workshseet tabs? | Excel Discussion (Misc queries) |