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