Define a name by referring the selection cell address
Sub DefineName2()
ActiveWorkbook.Activate
[A1].CurrentRegion.Activate
ActiveWorkbook.Names.Add Name:="WorkArea", RefersTo:="=" + Selection.Address
Debug.Print Range("WorkArea").Address(External:=True) End Sub