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