Excel VisualBasic Script

Sub GotoName1()
  Application.Goto Reference:= _
    ActiveWorkbook.names("NameArea").Name
End Sub