Excel VisualBasic Script

Sub GotoName2()
  Application.Goto Reference:= ActiveWorkbook.names("NameArea").Name, Scroll:=True
End Sub