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