PDA

View Full Version : Name a Range



schroederd1
09-28-2011, 07:45 PM
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
09-28-2011, 08:08 PM
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

Bob Phillips
09-29-2011, 12:52 AM
Is the Rows("1:1") necessary?


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