Return value from first row

[Guest]

Does anybody know how to return the value (maybe in a msgBox) from first row in the column where the curser is placed ? If I use "activecell.End(xlUp).value" then it will not go all the way to the top if there is some blank cell.

 

[Chip Pearson]

Kent,

If you really want row 1, use
MsgBox ActiveSheet.Cells(1, ActiveCell.Column).Value

If you want the first cell in the column containing data, use


Dim R As Range
Set R = ActiveSheet.Cells(1, ActiveCell.Column)
If R.Value = "" Then
Set R = R.End(xlDown)
End If
MsgBox R.Value


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

Does anybody know how to return the value (maybe in a msgBox)

from first row in the column where the curser is placed ? If I
use "activecell.End(xlUp).value" then it will not go all the way
to the top if there is some blank cell.

 

[Bob Phillips]

Cells(1,activecell.column).select

for first row

cells(1,activecell.column).end(xldown).select

for first row with data

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

Does anybody know how to return the value (maybe in a msgBox) from first

row in the column where the curser is placed ? If I use
"activecell.End(xlUp).value" then it will not go all the way to the top if
there is some blank cell.