Sub lrh()'use cells to find last on ws
MsgBox Columns(1).Find("*", searchdirection:=xlPrevious).Row
End Sub


--
Don Guillett
SalesAid Software

"tjh" wrote in message
...
Hello,

I am using Excel VBA.

Currently I have several rows hidden between various unhidden rows. When I
normally use the vba code:

range(selection,selection.end(xlup)).select

The range includes everything up to the first empty cell above the current
cell. However if the first empty cell is hidden it skips over them and
goes
to the first unhidden empty cell. How can I get the range to stop at the
first empty cell no matter if it is hidden or not.

Thank You,