Excel VisualBasic Script

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