Range objects cannot be used with an worksheet object as superobject
Sub ChangeValueInNamedCell1() Range("CellXy").Value = "CellXy" Debug.Print Range("CellXy").Value End Sub