Name a Range

[schroederd1]

I've used a relative reference to select a row and now I want to name that row. This is what I have but I don't know how to name the range.

Range("A10").Select
Selection.End(xlDown).Select
ActiveCell.Offset(2, 0).Rows("1:1").EntireRow.Select

Thanks,
Donna

[Kenneth Hobs]

[VBA]Sub t()
Dim r As Range
Set r = Range("A10").End(xlDown).Offset(2, 0).Rows("1:1").EntireRow
r.Name = "Ken"
MsgBox Range("Ken").Address
End Sub[/VBA]

[Bob Phillips]

Is the Rows("1:1") necessary?

[vba]
Set r = Range("A10").End(xlDown).Offset(2, 0).EntireRow
[/vba]