Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Define a name by referring a workbook

Sub DefineName3()   ActiveWorkbook.names.Add Name:="WorkArea", RefersTo:="=" + ActiveWorkbook.Sheets("sheet1").[A1].CurrentRegion.Address(External:=True)   Debug.Print Range("WorkArea").Address(External:=True) End Sub