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