Worksheet Names

[lorenambrose]

I have searched this forum for an hour and nothing I find does exactly what I need.

I have a Worksheet and I would like the Sheet Name (Tab) to equal whatever is in another Worksheet called "Introduction", Cell C10.

Nothing I do works. If you can help, I would appreciate it.

 

[6StringJazzer]

This requires VBA. This is the line of code:

ActiveSheet.Name = Worksheets("Introduction").Range(C10)

If you do not have any VBA yet you will need to make this part of a sub:

Public Sub RenameActiveSheet()
   ActiveSheet.Name = Worksheets("Introduction").Range(C10)
End Sub

 

[Michael M]

A line of VBA

    ActiveSheet.Name = Sheets("Introduction").Range("C10")

 

[lorenambrose]

I forgot to state that the sheet I want to name is Sheet13

 

[lorenambrose]

Here I my issue. I would like to make the change from a different sheet. This is where I have issues.

 

[Michael M]

Sheets("Sheet13").Name = Sheets("Introduction").Range("C10")

 

[6StringJazzer]

Public Sub RenameActiveSheet()
   ActiveSheet.Name = Worksheets("Introduction").Range("C10")
End Sub

**** forgot the quotes.

 

[6StringJazzer]

I forgot to state that the sheet I want to name is Sheet13

Then just

   Sheet13.Name = Worksheets("Introduction").Range("C10")

if that's the codename for the sheet. If it's the tab name but not the codename then

   Worksheets("Sheet13").Name = Worksheets("Introduction").Range("C10")

 

[lorenambrose]

Nothing is working and I am sure it's me.

C10 is on worksheet "Introduction" When I change the value in C10, I would like Sheet13 to be renamed.

Some of this code looks like it would work BUT I am not exactly sure where to put it. Would it go on the Sheet13 code or in the worksheets("Introduction") code?

I do not want to have to activate the target sheet to get anything to change.

Public Sub RenameActiveSheet()
   ActiveSheet.Name = Worksheets("Introduction").Range("C10")
End Sub

 

[lorenambrose]

I got It!!!!!!

I had it in the target sheets instead of in the source sheet.

Sub Worksheet_Change(ByVal Target As Range)
   
Sheet13.Name = Worksheets("Introduction").Range("C10")
Sheet14.Name = Worksheets("Introduction").Range("C11")
Sheet25.Name = Worksheets("Introduction").Range("C12")
Sheet16.Name = Worksheets("Introduction").Range("C13")
Sheet17.Name = Worksheets("Introduction").Range("C14")
Sheet19.Name = Worksheets("Introduction").Range("C15")
Sheet18.Name = Worksheets("Introduction").Range("C16")
   
End Sub