Make a sheet tab name equal to a cell

Is there a way to make the name of a worksheet tab equal to a cell value.   Essentially I want someone to type their name in cell "A1" and then have that name become the tab name.  Is this possible?
LVL 1
Michael KeithAsked:
Who is Participating?
 
StephenJRCommented:
In the sheet module:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$A$1" Then
    ActiveSheet.Name = Target.Value
End If

End Sub
0
 
StephenJRCommented:
Something like this?
With ActiveSheet
    .Name = .Range("A1").Value
End With

Open in new window

0
 
Michael KeithAuthor Commented:
How would this activate when they type in the cell?
0
Keep up with what's happening at Experts Exchange!

Sign up to receive Decoded, a new monthly digest with product updates, feature release info, continuing education opportunities, and more.

 
StephenJRCommented:
Er, well you'd have to run the macro. Is this a single sheet, any sheet...?
0
 
Michael KeithAuthor Commented:
Single sheet
0
 
Michael KeithAuthor Commented:
That works.  Thanks!  
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.