Equivalent to Selection.End(XLUp).select

[dar149]

I am looking for an equivalent to Selection.End(XLUp).Select. I need to move to the very top row of a column, but there may or may not be data in every cell, so the above code doesn't work. I never know what column they are in, so I need to code to move up relatively. I could use activecell.offset, but I need some way to make it stop without receiving an error.

Any suggestions??
Thanks,
Debbie

 

[Loomah]

Hi
This will select the first cell in the active column containing data

Sub s()
Dim lRow As Long
    lRow = ActiveSheet.Columns(ActiveCell.Column).Cells.Find(What:="*", _
      after:=Cells(65536, ActiveCell.Column), SearchDirection:=xlNext, SearchOrder:=xlByRows).Row
Cells(lRow, ActiveCell.Column).Select
End Sub

This will select the first row in the active column

Cells(1, ActiveCell.Column).Select

Wasn't sure which you wanted!
;-)

If a man says something and there are no women there to hear him, is he still wrong?

 

[dar149]

Thanks!! Cells(1, ActiveCell.Column).Select
is exactly what I wanted.