job

Sub select_last_plus_one()
Dim rng As Range
Set rng = Cells(Rows.Count, 1).End(xlUp)(2)
'or .End(xlUp).Offset(1, 0)
rng.Select
End Sub

The (Rows.Count, 1) denotes column A

Gord Dibben Excel MVP

On Mon, 16 Feb 2004 13:47:46 -0600, job1job1
wrote:

When recording a macro to capture keystrokes, how do I get the cursor
(or active cell) to be at the next blank cell at the bottom of a
column of data?

In other words, when I use End+Down and then move the arrow key down
one more cell, the macro record function identifies that cell by name,
such as A24, rather than End+Down and then Down.

Thanks for your expertise.


---
Message posted from http://www.ExcelForum.com/