Range Names

Assigning range names to a range of cells.

Sub RngName()
Selection.Name = "myRange"
End Sub