Tab Names

[JohnGuts]

Is it possible for the tab names (i.e. Sheet1, Sheet2, etc) to automatically change based on a specific cell value?

I want the user to enter a facility name in cell A1 and I would like the name on the tab to change to match the user's input.

Thanks for any help.

 

[VoG]

Right click the sheet tab, select View Code and paste in

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(False, fale) = "A1" Then Me.Name = Target.Value
End Sub

 

[pboltonchina]

Try this in the worksheet

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then
ActiveSheet.Name = Range("A1").Value
End If
End Sub

 

[JohnGuts]

That did the trick. Thank you for the quick resonse.