Excel VisualBasic Script

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