Select across and down 5 rows 1

[meldrape]

Hi there,

Here is yet another very elementary question. I have the following code which works just fine to select across, BUT I also need to select 5 rows down:

Sheets("Customers&quot.Select
ActiveCell.Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy

Any help would be greatly appreciated. Many thanks in advance.

 

[Stretchwickster]

Try this:

  Sheets("Customers").Select
  ActiveCell.Select
  Range(Selection, Selection.End(xlToRight)).Select
  Range(Selection, Selection.Offset(5, 0)).Select    
  Selection.Copy

Hope this helps!
Clive

http://www.kucu.co.uk

Ex nihilo, nihil fit (Out of nothing, nothing comes)

 

[meldrape]

Perfect. Thanks so much for your help.

 

[Stretchwickster]

No problem at all! ;-) Clive

http://www.kucu.co.uk

Ex nihilo, nihil fit (Out of nothing, nothing comes)