Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. 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