VBA/Excel/Access/Word/Excel/Range Add

To add a range name based on a selection using a variable

   <source lang="vb">

Sub AddName3()

   Dim rngSelect As String
   rngSelect = Selection.Address
   ActiveSheet.Names.Add Name:="MyRange3", RefersTo:="=" & rngSelect

End Sub

</source>
   
  

To add a range name for known range

   <source lang="vb">

Sub AddName1()

  ActiveSheet.Names.Add Name:="MyRange1", RefersTo:="=$A$1:$B$10"

End Sub

</source>
   
  

Use ActiveCell and ActiveCell.End to create Range

   <source lang="vb">

Sub SelectDown()

   Range(ActiveCell, ActiveCell.End(xlDown)).Select

End Sub

</source>