SELECT AN AREA USING MACO

[Mike E Golding]

From within a macro I need to reproduce the action of pressing
and holding Shift, then pressing End, Down Arrow, End, Right Arrow, then
releasing the shift key. I can do the first half (i.e. up to and including
the Down Arrow) using:

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

But how do I now add to the selection the right hand area?

Regards,

 

[SIXTH SENSE]

hi!
try this!
Range(Selection, Selection.End(xlToRight)).Select

 

[Richie(UK)]

Hi Mike,

A couple of ideas:

Sub Test()
    Dim rng As Range
    
    Set rng = Range(Selection, Selection.End(xlDown))
    Set rng = Application.Union(rng, Range(rng, Selection.End(xlToRight)))
    rng.Select
    
End Sub

Sub Test2()
    Dim lRow As Long, iCol As Integer, rng As Range
    
    lRow = Selection.End(xlDown).Row
    iCol = Selection.End(xlToRight).Column
    Set rng = Range(Selection, Cells(lRow, iCol))
    rng.Select
    
End Sub

HTH

 

[Mike E Golding]

Thanks a lot lad. This site is "THE BEST" thanks to all concerned...Mike