Hi.

When I record a macro,and move to the last cell in a worksheet, the
recorded command is correct as:

ActiveCell.SpecialCells(xlLastCell).Select

However, I then wish to move to the first cell in that last row by way
of the macro but the move gets recorded as an absolute cell reference.
That won't work later when the table size changes.

What is the command to pop left to the first column cell in the
currently occupied (last, in this case) row that does not use any
explicit cell references ("A" is allowed).

ActiveCell.SpecialCells(xlLastCell).Select
Cells(Selection.Row, "A").Select
or
Cells(Selection.Row, 1).Select

A little more info. If after selecting the last cell, if all cells between
the selected cell and Column A (on the same row as the selected cell) have
data then you can hold the Ctrl key and press left arrow and it would record
as follows.

ActiveCell.SpecialCells(xlLastCell).Select
Selection.End(xlToLeft).Select


--
Regards,

OssieMac


"CellShocked" wrote:

Hi.

When I record a macro,and move to the last cell in a worksheet, the
recorded command is correct as:

ActiveCell.SpecialCells(xlLastCell).Select

However, I then wish to move to the first cell in that last row by way
of the macro but the move gets recorded as an absolute cell reference.
That won't work later when the table size changes.

What is the command to pop left to the first column cell in the
currently occupied (last, in this case) row that does not use any
explicit cell references ("A" is allowed).
.

On Thu, 7 Jan 2010 18:45:01 -0800, OssieMac
wrote:


ActiveCell.SpecialCells(xlLastCell).Select
Cells(Selection.Row, "A").Select
or
Cells(Selection.Row, 1).Select

A little more info. If after selecting the last cell, if all cells between
the selected cell and Column A (on the same row as the selected cell) have
data then you can hold the Ctrl key and press left arrow and it would record
as follows.

ActiveCell.SpecialCells(xlLastCell).Select
Selection.End(xlToLeft).Select


thanx

Can also find the last used cell in column A with the following. You can
edit column A to any column you wish to find the last used cell in that
column.

Cells(Rows.Count, "A").End(xlUp).Select


The following finds the last used cell in a row. Edit the row number for any
particular row.

Cells(1, Columns.Count).End(xlToLeft).Select

--
Regards,

OssieMac