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