Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Fill named range with values

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