Option ExplicitSub DefineName1() Range("A3:B5").Name = "TestArea" Debug.Print Range("TestArea").Address(External:=True)End Sub