Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
tab naming
is there anyway to have either
1) a cell drive the naming of a worksheet or 2) a worksheet drive the naming of a cell? thanks. |
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
tab naming
1) yes, with sheet level code like this
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then ActiveSheet.Name = Range("a1").Value End Sub 2) yes, with =MID(CELL("Filename"),FIND("]",CELL("Filename"))+1,255) this only works on a workbook that has been saved. -- Allllen " wrote: is there anyway to have either 1) a cell drive the naming of a worksheet or 2) a worksheet drive the naming of a cell? thanks. |
#3
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
tab naming
second suggestion worked like a charm. thanks!
-brian Allllen wrote: 1) yes, with sheet level code like this Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then ActiveSheet.Name = Range("a1").Value End Sub 2) yes, with =MID(CELL("Filename"),FIND("]",CELL("Filename"))+1,255) this only works on a workbook that has been saved. -- Allllen " wrote: is there anyway to have either 1) a cell drive the naming of a worksheet or 2) a worksheet drive the naming of a cell? thanks. |
#4
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
tab naming
"Allllen" wrote in message
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then ActiveSheet.Name = Range("a1").Value End Sub I'd be careful with that one. Since the Change event occurs when a cell is changed by VBA, it is possible that cell A1 on Sheet1 would be changed when Sheet2 is active. Thus, your code would rename Sheet2, not Sheet1, with the value in A1 on Sheet1. Instead, just to be safe, use Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then Me.Name = Range("a1").Value End Sub -- Cordially, Chip Pearson Microsoft MVP - Excel Pearson Software Consulting, LLC www.cpearson.com (email address is on the web site) "Allllen" wrote in message ... 1) yes, with sheet level code like this Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then ActiveSheet.Name = Range("a1").Value End Sub 2) yes, with =MID(CELL("Filename"),FIND("]",CELL("Filename"))+1,255) this only works on a workbook that has been saved. -- Allllen " wrote: is there anyway to have either 1) a cell drive the naming of a worksheet or 2) a worksheet drive the naming of a cell? thanks. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
intersection naming transport between files | Excel Discussion (Misc queries) | |||
Pivot Table Group Naming | Excel Discussion (Misc queries) | |||
automate the tab naming | Excel Discussion (Misc queries) | |||
How can I automate the naming of worksheet tabs? | Excel Discussion (Misc queries) | |||
Naming ranges? | Excel Discussion (Misc queries) |