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