Home |
Search |
Today's Posts |
#1
|
|||
|
|||
Sheet tab name
Is there a way to set the spreadsheet up so that the value in cell A4
appears as the sheet tab name? -- ~Jeff~ [Microsoft Windows XP Pro,Office 2000] |
#2
|
|||
|
|||
Only with VBA code.
Sub AAA() ActiveSheet.Name = ActiveSheet.Range("A4").Text End Sub or you can use an event procedure to automate this. In the code module for the worksheet in question, use Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$4" Then Me.Name = Target.Text End If End Sub -- Cordially, Chip Pearson Microsoft MVP - Excel Pearson Software Consulting, LLC www.cpearson.com "~Jeff~" wrote in message ... Is there a way to set the spreadsheet up so that the value in cell A4 appears as the sheet tab name? -- ~Jeff~ [Microsoft Windows XP Pro,Office 2000] |
#3
|
|||
|
|||
Hi
you have to use VBA for this. e.g. put the following code in your workshete module Private Sub Worksheet_Change(ByVal Target As Range) if target.address="$A$4" then on error resume next application.enableevents=false me.name=target.value application.enableevents=true end if End Sub -- Regards Frank Kabel Frankfurt, Germany ~Jeff~ wrote: Is there a way to set the spreadsheet up so that the value in cell A4 appears as the sheet tab name? |
#4
|
|||
|
|||
"~Jeff~" wrote in message
... Is there a way to set the spreadsheet up so that ... Yes, with event code (if you mean "so that the sheet name becomes whatever's in A4" & not the other way around). Rightclick the sheet tab, click "View Code" ; then paste the following into the worksheet module. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address < "$A$4" Then Exit Sub On Error GoTo 100: ActiveSheet.Name = Target Exit Sub 100: MsgBox "Cannot rename sheet." End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Transfer data from sheet to sheet | Excel Discussion (Misc queries) | |||
Linking sheets to a summary sheet in workbook | Excel Discussion (Misc queries) | |||
linking multiple sheets to a summary sheet | Excel Discussion (Misc queries) | |||
Function to automatically insert a new sheet as a result of data entry? | Excel Worksheet Functions | |||
Naming & renaming a sheet tab | Excel Worksheet Functions |