This will allow you to input a "title" into A2 and it will change the name of
sheet 2. Each time you change A2 on sheet 1, the name of sheet 2 will change
as well.
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ErrorHandler
If Target.Column = 1 Then
If SheetExists(Target.Value) Then
MsgBox "Invalid Sheet Name", vbCritical, "Sheet Name Error"
Application.EnableEvents = False
Application.Undo
Else
Select Case Target.Row
Case 2
Sheet2.Name = Target.Value
End Select
End If
End If
ErrorHandler:
Application.EnableEvents = True
End Sub
