Moving in Excel

[Winfred]

Hi All,
How do you move to the bottom (the cell after the last cell with info) of a column programaticaly?
Thanks Thanks,
Winn Pauley

 

[sfvb]

This is one way to do it:
If Selection.End(xlDown).Row <> 65536 Then
ActiveCell.Offset(Selection.End(xlDown).Row - ActiveCell.Row + 1, 0).Select
End If

 

[DaleWatson123321]

This routine will work on ANY column that the cursor is on.

Sub Go_NextBlankRow()
cur_colm = ActiveCell.Column
lastcell = Cells(65536, cur_colm).End(xlUp).Offset(1, 0).Address
Range(lastcell).Select
End Sub

I hope it helps.

Regards, ...Dale Watson dwatson@bsi.gov.mb.ca