Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Is there a way to setup Worksheet Tab Descriptions based on cell i
I would like to setup tab descriptions that are conditional based on cell
info. Is it possible? If so, can you send me example? -- Thanks for your help MsCone |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Is there a way to setup Worksheet Tab Descriptions based on cell i
With the limited information provided:
go to the thisworkbook module. Assume you want to rename the sheet to match the value in cell A1 of that sheet. Put is code like this: Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) if Target.Address = "$A$1" then sh.name = Target.Text End if End Sub -- regards, Tom Ogilvy "mscone2000" wrote: I would like to setup tab descriptions that are conditional based on cell info. Is it possible? If so, can you send me example? -- Thanks for your help MsCone |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Is there a way to setup Worksheet Tab Descriptions based on ce
How do I get this code to fire upon opening the spreadsheet?
-- Thanks for your help MsCone "Tom Ogilvy" wrote: With the limited information provided: go to the thisworkbook module. Assume you want to rename the sheet to match the value in cell A1 of that sheet. Put is code like this: Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) if Target.Address = "$A$1" then sh.name = Target.Text End if End Sub -- regards, Tom Ogilvy "mscone2000" wrote: I would like to setup tab descriptions that are conditional based on cell info. Is it possible? If so, can you send me example? -- Thanks for your help MsCone |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Is there a way to setup Worksheet Tab Descriptions based on ce
If you want all of the sheets renamed on open then give this a try. It must
be placed in ThisWorkbook (Right click the Excel icon beside File in the menu bar and select view code). The error handler is necessary if you try to name the sheet something not allowed (such as duplicating an existing sheet name, a sheet name that is too long or naming the sheet "history")... Private Sub Workbook_Open() Dim wks As Worksheet On Error Resume Next For Each wks In Worksheets wks.Name = wks.Range("A1").Value Next wks On Error GoTo 0 End Sub -- HTH... Jim Thomlinson "mscone2000" wrote: How do I get this code to fire upon opening the spreadsheet? -- Thanks for your help MsCone "Tom Ogilvy" wrote: With the limited information provided: go to the thisworkbook module. Assume you want to rename the sheet to match the value in cell A1 of that sheet. Put is code like this: Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) if Target.Address = "$A$1" then sh.name = Target.Text End if End Sub -- regards, Tom Ogilvy "mscone2000" wrote: I would like to setup tab descriptions that are conditional based on cell info. Is it possible? If so, can you send me example? -- Thanks for your help MsCone |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Name a worksheet tab based on the value in a cell. | Excel Discussion (Misc queries) | |||
attaching descriptions to list of values for cell validation | Excel Discussion (Misc queries) | |||
Create Cell Comment based on text in a cell on another worksheet | Excel Discussion (Misc queries) | |||
Cannot see formula descriptions in worksheet as I type a formula. | Excel Worksheet Functions | |||
setup a range based on a variable | Excel Programming |