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)

"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.