Worksheet Tab value to change automatically

[Praxis]

I wish to Link a Worksheet Tab so that the default name (Sheet1) would change automatically to match a value in a cell. The other scenario would be to change the value of the Worksheet Tab (Sheet1) and a cell from the sheet would change automatically to match the value of the Tab.

 

[lenze]

Right click on the WorkSheet Tab and choose View Code. Paste in this code

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

Change $A$4 to the cell of interest

 

[Praxis]

Thank you Lenze.. Your'e the man.