Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
With Target.Cells(1)
If .Address = "$A$1" Then Sheets(CStr(.Value)).Select
End With
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
With Target.Cells(1)
If .Address = "$A$1" Then Sheets(CStr(.Value)).Select
End With
End Sub