Can someone tell me how to return the last row in a named range?

Thank you.
Sprinks

Try this
lastRow = Cells(Rows.Count, NamedRange.Columns(1)).End(xlUp).Row

"Sprinks" wrote:

Can someone tell me how to return the last row in a named range?

Thank you.
Sprinks

JLGWhiz,

Thanks.

"JLGWhiz" wrote:

Try this
lastRow = Cells(Rows.Count, NamedRange.Columns(1)).End(xlUp).Row

"Sprinks" wrote:

Can someone tell me how to return the last row in a named range?

Thank you.
Sprinks

try this

Range("test").SpecialCells(xlCellTypeLastCell)

--


Gary


"Sprinks" wrote in message
...
Can someone tell me how to return the last row in a named range?

Thank you.
Sprinks

sorry, you wanted the row, not the cell
i = Range("test").SpecialCells(xlCellTypeLastCell).Row

--


Gary


"Sprinks" wrote in message
...
Can someone tell me how to return the last row in a named range?

Thank you.
Sprinks

Can someone tell me how to return the last row in a named range?

LastRow = Range("YourRangeName").Row + Range("YourRangeName").Count - 1

or, more compactly....

With Range("MyRange")
LastRow = .Row + .Count - 1
End With


Rick

One more (useful if there are multiple areas in the range):

Option Explicit
Sub testme()

Dim myRng As Range
Set myRng = Worksheets("Sheet1").Range("myname")

With myRng
With .Areas(.Areas.Count)
MsgBox .Rows(.Rows.Count).Row
End With
End With

End Sub




Sprinks wrote:

Can someone tell me how to return the last row in a named range?

Thank you.
Sprinks

--

Dave Peterson

Just to add, if not certain the 'last' area contains the 'lowest' row, would
need to loop each area.

Regards,
Peter T

"Dave Peterson" wrote in message
...
One more (useful if there are multiple areas in the range):

Option Explicit
Sub testme()

Dim myRng As Range
Set myRng = Worksheets("Sheet1").Range("myname")

With myRng
With .Areas(.Areas.Count)
MsgBox .Rows(.Rows.Count).Row
End With
End With

End Sub




Sprinks wrote:

Can someone tell me how to return the last row in a named range?

Thank you.
Sprinks

--

Dave Peterson