Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

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