Excel VisualBasic Script

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