Excel VisualBasic Script

Sub FillNameArea1()
  Application.Goto Reference:=ActiveWorkbook.Names("NameArea").Name
  Selection.value = "Test1"
End Sub
Sub FillNameArea2()
  Evaluate(ActiveWorkbook.Names("NameArea").value).value = "Test2"
End Sub