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