How to name a selected range in VBA?

[HakaWaka]

Hi there,

I would like to know how i can name the range that i have selected as per the code below:

Sheets("ABC").Select
Range("A1:E1").Select
Range(Selection, Selection.End(xlDown)).Select

Cheers

 

[Scott Huish]

There's no need to do all that selecting.

Sub test()
Dim d As Range
Set d = Range("A1:E1")
Range(d, d.End(xlDown)).Name = "NAME"
End Sub

 

[HakaWaka]

Thanks HOTPEPPER