Tab Names

[zendog1960]

I did a fast search but didn't come up with anything. I am looking for a way to name tabs to match the value in a cell.

For example: If I type in 'Example Sheet' into cell A1, I want the tab to automatically rename to Example Sheet.

How is this done?

 

[jim may]

In the specific sheet that you wish to do this enter the below code
into that sheets object code module.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Intersect(Target, Me.Range("A1")) Is Nothing Then Exit Sub
On Error GoTo CleanUp
Application.EnableEvents = False
With Target
If .Value <> "" Then
Me.Name = .Value
End If
End With
CleanUp:
Application.EnableEvents = True
End Sub

 

[zendog1960]

That worked fantastic, Thank you very much!

 

[jim may]

Thanks for the feedback,
Jim May