Mike,

After re-reading your post, I think that this may do what you want:

range(range("A10").End(xlToRight).Offset(0,1),
range("A10").end(xlDown)).Select

John

"John Wilson" wrote in message
...
Mike,

Try this:

range(range("A10"), range("A10").end(xlDown)).resize(,2).Select

John

"Michael Kintner" wrote in message
...
I would like to set a print area using the arrow keys. If I turn on the
macro recorder it dows not show how the keys sequences are created.

What is the vb code to start at cell A10 and range select end down, end
right then right once?

Thank you for your help in advance!!! (smile) I;m in a real bind....

Mike