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