Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Automatic Sheet Naming
If I have a list of people in the A column, is there a way for the worksheet
tabs reflect those names automatically? Example: Sheet1: A1: Joe A2: Bob A3: Bill Sheet2 renames to what is in A1, or Joe Sheet3 renames to what is in A2, or Bob Sheet4 renames to what is in A3, or Bill Then I rename A1 to Albert, and Sheet2 or the €œJoe€ sheet automatically becomes Albert now. Thanks! |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Automatic Sheet Naming
Sub renamre()
Sheets("Sheet1").Activate n = Cells(Rows.Count, 1).End(xlUp).Row For i = 1 To n Sheets(i + 1).Name = Cells(i, 1).Value Next End Sub -- Gary''s Student - gsnu200772 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Automatic Sheet Naming
"Gary''s Student" wrote:
Sub renamre() Sheets("Sheet1").Activate n = Cells(Rows.Count, 1).End(xlUp).Row For i = 1 To n Sheets(i + 1).Name = Cells(i, 1).Value Next End Sub -- Gary''s Student - gsnu200772 Gary, Thank you for the answer, but will this be automatic - i.e. as soon as cell A1 is changed, sheet2 is renamed? Thanks |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Automatic Sheet Naming
Put this Event macro in the worksheet code area:
Private Sub Worksheet_Change(ByVal Target As Range) Set t = Target Set a = Range("A:A") If Intersect(t, a) Is Nothing Then Exit Sub n = t.Row Sheets(n + 1).Name = t.Value End Sub -- Gary''s Student - gsnu200772 "Jeff Lowenstein" wrote: "Gary''s Student" wrote: Sub renamre() Sheets("Sheet1").Activate n = Cells(Rows.Count, 1).End(xlUp).Row For i = 1 To n Sheets(i + 1).Name = Cells(i, 1).Value Next End Sub -- Gary''s Student - gsnu200772 Gary, Thank you for the answer, but will this be automatic - i.e. as soon as cell A1 is changed, sheet2 is renamed? Thanks |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Automatic Sheet Naming
Gary, how would you rename the tab with a Text Box on a worksheet? Not a
userform I've tried the following doesn't seem to work. Private Sub TextBox127_LostFocus() ActiveSheet.Name = Me.Textbox127.value End Sub "Gary''s Student" wrote: Put this Event macro in the worksheet code area: Private Sub Worksheet_Change(ByVal Target As Range) Set t = Target Set a = Range("A:A") If Intersect(t, a) Is Nothing Then Exit Sub n = t.Row Sheets(n + 1).Name = t.Value End Sub -- Gary''s Student - gsnu200772 "Jeff Lowenstein" wrote: "Gary''s Student" wrote: Sub renamre() Sheets("Sheet1").Activate n = Cells(Rows.Count, 1).End(xlUp).Row For i = 1 To n Sheets(i + 1).Name = Cells(i, 1).Value Next End Sub -- Gary''s Student - gsnu200772 Gary, Thank you for the answer, but will this be automatic - i.e. as soon as cell A1 is changed, sheet2 is renamed? Thanks |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Naming a sheet | Excel Discussion (Misc queries) | |||
Automatic naming Worksheet tabs | Excel Programming | |||
Automatic naming Worksheet tabs | Excel Programming | |||
Automatic Range Naming using Advanced Filter? | Excel Programming | |||
Automatic sheet naming | Excel Programming |