Hi,
This is a worksheet event code that may work when the data in "A1" changes.
Paste this in the worksheet code module for the sheet that you named as "Names".
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Mysheet As String
If Target.Address = "$A$1" Then
Mysheet = Target.Text
Sheets(Mysheet).Activate
Range("A1").Select
End If
End Sub