Last cell in column
I wrote a macro that does this as below:
' EndDown Macro
Sub EndDown()
If Selection Is Nothing Then Exit Sub
State = IsEmpty(ActiveCell)
For rw = ActiveCell.Row + 1 To Application.Rows.Count - 1
If IsEmpty(Cells(rw, ActiveCell.Column)) < State Then
Exit For
Next rw
ActiveWindow.ScrollRow = rw
Cells(rw, ActiveCell.Column).Activate
End Sub
-----Original Message-----
Searching for a command that will show me the LAST value
in a column. Not the
largest, but the last. Any help0 greatly appreciated.
.
|