getting the adress on the last row

Hi
can i with
Set myRange2 = Range(Range("a1"), Range("a1").End(xlDown))

Get the last rows adress
like if the last post i have is in A11 then
get the adress A11

Reagrds
Alvin

Try this

set myRange2 = Range(Range("a1"), Range("a1").End(xlDown))

With myRange2
i = .rows.count
j = .myRange2.cells(i,0).address
end with

Sorry
Have found out how

Alvin


"alvin Kuiper" wrote:

> Hi
> can i with
> Set myRange2 = Range(Range("a1"), Range("a1").End(xlDown))
>
> Get the last rows adress
> like if the last post i have is in A11 then
> get the adress A11
>
> Reagrds
> Alvin
>

Set rng = Cells(Rows.Count, "A").End(xlUp)
MsgBox rng.Address

"alvin Kuiper" wrote:

> Hi
> can i with
> Set myRange2 = Range(Range("a1"), Range("a1").End(xlDown))
>
> Get the last rows adress
> like if the last post i have is in A11 then
> get the adress A11
>
> Reagrds
> Alvin
>

To display the horizontal and vertical bounds on a range:


Sub Macro1()
Dim s As String
Set myRange2 = Range(Range("a1"), Range("a1").End(xlDown))
s = myRange2.Address
MsgBox (s)
With myRange2
nLastRow = .Rows.Count + .Row - 1
nLastColumn = .Columns.Count + .Column - 1
nFirstRow = .Row
nFirstColumn = .Column
End With
MsgBox ("first row " & nFirstRow)
MsgBox ("last row " & nLastRow)
MsgBox ("first column " & nFirstColumn)
MsgBox ("last column " & nLastColumn)
End Sub

--
Gary's Student


"Toppers" wrote:

> Set rng = Cells(Rows.Count, "A").End(xlUp)
> MsgBox rng.Address
>
> "alvin Kuiper" wrote:
>
> > Hi
> > can i with
> > Set myRange2 = Range(Range("a1"), Range("a1").End(xlDown))
> >
> > Get the last rows adress
> > like if the last post i have is in A11 then
> > get the adress A11
> >
> > Reagrds
> > Alvin
> >