Renaming worksheets

[Guest]

I am trying to rename a worksheet by using a defined field (cell). Example,
if I type in Dave Wilson in cell A1, is there a way to define the worksheet
as Dave Wilson, without manually changing it everytime? And as I cahnge
names, the worksheet names will change also...Thanks in advance for your time.
Mike allen

 

[Bob Phillips]

Mike,

Try this code

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

On Error GoTo ws_exit:
Application.EnableEvents = False
If Target.Address = "$A$1" Then
Sh.Name = Target.Value
End If

ws_exit:
Application.EnableEvents = True
End Sub

'This is workbook event code.
'To input this code, right click on the Excel icon on the worksheet
'(or next to the File menu if you maximise your workbooks),
'select View Code from the menu, and paste the code



--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[David McRitchie]

I believe you already have your answer so will just include this comment.

Would suggest you use "Wilson, Dave" instead of "Dave Wilson" so that
you can sort the worksheet tabs with a macro when you get more than what
you can see directly.
.http://www.mvps.org/dmcritchie/excel/buildtoc.htm@sortallsheets

 

[Guest]

I am trying to do some of the same thing except with merged cells. I am
using cells A1, A2, B1, & B2 for the month and year and I would like that in
the worksheet name. I am making a calendar for a motel to use to book its
rooms.
I opened VBA for the worksheet and put that in, but nothing happened. I
changed the cell range from $a$1 to $a$1..$b$2.

Thanks.

Jeff

 

[Don Guillett]

Sub namesheet()
mystr = Range("A1") & " " & Range("b1")
'mystr = Range("A1") 'merged a1 & b1
MsgBox mystr
ActiveSheet.Name = mystr
End Sub

 

[Jim May]

Don: I substituted

ActiveSheet.CodeName = mystr

To change to Codename, but get error 450
Wrong number of arguments or invalid property assignment

Can this be corrected to achieve?
TIA,

Jim

 

[Don Guillett]

try
ThisWorkbook.VBProject.VBComponents(ActiveSheet.CodeName) _
..Name = Format(Range("a1"), "mmmm_yyyy")

 

[Guest]

I have read almost everything on how to change sheet names per the value of a
cell, and have had no luck at all working. The code below seems perfect for
my use, but I cannot get the macro to run. I am not very familiar with
macros so please ebar with me. In the explanation below it seems like I just
copy and paste the code as per the instructions, but when I do that my page
numbers just sit thwere staring at me with the old stagnant numbers.

Can someone shed some light in the process?

 

[Gord Dibben]

This is change event code.

Nothing will happen until you make a change in the value of A1 or select A1 and
F2>ENTER.

Then the sheet name will become whatever is in A1.

Note: if A1 contains a formula the updated value will not trigger the change in
the sheet name

For that you would need a different type of code.

Private Sub Worksheet_Calculate()
Me.Name = Range("A1").Value
End Sub


Gord Dibben MS Excel MVP


On Sat, 20 Jan 2007 17:39:00 -0800, Jerome Humery <Jerome