CTRL - Arrow Down

[Matt]

Is there code which replicates these keystrokes, as I'm trying to select a particular range, starting from an activecell. Also, is there code for CTRL and the other arrown directions?

thanks

Matt

Yes.

Activecell.End(xlDown).select
xldown can be replaced with Toleft or Toright or Up

James

[Matt]

Thanks James

Do you have any ideas why the following code is not working. Obviously, I'm doing something completely wrong but cannot work out what.

Set myrange = Worksheets("Sheet3").Range(ActiveCell, Worksheets("Sheet3").ActiveCell.End(xlDown).Offset(0, 2))

[Barrie Davidson]

On 2002-03-12 05:02, Matt wrote:
Thanks James

Do you have any ideas why the following code is not working. Obviously, I'm doing something completely wrong but cannot work out what.

Set myrange = Worksheets("Sheet3").Range(ActiveCell, Worksheets("Sheet3").ActiveCell.End(xlDown).Offset(0, 2))

Try this (you need the "Address" portion in your Range statement):

Set myrange = Worksheets("Sheet3"). _
Range(ActiveCell.Address, Worksheets("Sheet3"). _
ActiveCell.End(xlDown).Offset(0, 2).Address)

Regards,

Set myrange = Worksheets("Sheet3").Range(ActiveCell, ActiveCell.End(xlDown).Offset(0, 2))

[Matt]

Thanks for your help guys