Excel VisualBasic Script

Sub BuildRangeFromName()
  Dim rng As Range
  Set rng = Evaluate(ActiveWorkbook.names("NameArea").Value)
  Debug.Print rng.Address(External:=True)
End Sub