Sub ChangeValueInNamedCell1() Range("CellXy").Value = "CellXy" Debug.Print Range("CellXy").Value End Sub