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


"Kent" wrote in message
...
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.