excel vba set range to current region code example

Example: vba set named range

' Scope.Names.Add Name:=RangeName, RefersTo:=NamedRange
'Example: 
ThisWorkbook.Names.Add Name:="myRangeName", RefersTo:=Range("A1")