Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Enables access to named ranges in arbitrary workbooks

Sub ChangeValueInNamedCell2()   Dim rng As Range   Set rng = Evaluate(ActiveWorkbook.names("CellXy").Name)   rng.Value = "This is a named cell."   Debug.Print rng.Value End Sub