try this one:

Range(Selection, Selection.End(xlDown)).Select

pls do rate

"geebee" wrote:

hi,

I have the following, which selects a range of cells across an Excel row:

obj.Sheets("Input").Visible = True
obj.Sheets("Input").Activate

obj.range("a265:m265").select


I need to know how I can simulate pressing the SHIFT, END, DOWN ARROW keys
to select down to the last row of entered data.

Thanks in advance,
geebee