Need inclusive selection expansion VBA with multiple selection (was "xltoleft challenge?")

[edit: retitled at request of moderator Winon]

I'm seeking a variation of
Range(ActiveCell, ActiveCell.End(xlToLeft)).Select (like control-shift-left arrow)
but to use when more than a single cell is selected.

To demonstrate:
In an empty sheet put a zero (or anything) in B1, B2 and D2
Go to A1
Go Control-shift-end (selecting everything through the bottom right, A1:D2)
(Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select)

Now the objective is to simulate Control-Shift-Left arrow.
If you do this with the keystroke you end up with A1:B2 selected. That's what I want.
But Range(ActiveCell, ActiveCell.End(xlToLeft)).Select only leaves A1 selected, so what works?

Maybe Range(selection, selection.End(xlToLeft)).Select
is a start in the right, um, left direction.

Originally Posted by Oppressed1

Go Control-shift-end (selecting everything through the bottom right, A1:D2)
(Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select)

Now the objective is to simulate Control-Shift-Left arrow.
If you do this with the keystroke you end up with A1:B2 selected. That's what I want.

If you do your steps while recording a macro, it should give you the code, or am I missing something.

Please Login or Register  to view this content.

Thank you for your always excellent responses. I apologize but in retitling the subject line I inadvertently created a new thread. Use http://www.excelforum.com/excel-prog...ml#post3465943 instead. Sorry.

As to your answer here (but to respond, please use original thread in above link), on the described scenario, when you do that
Range(Selection, Selection.End(xlToLeft)).Select
the selection does not change when I do it, unlike control-shift-arrow. I appreciate the reasonable reminder of the common sense answer of recording and working from that, but it didn't pay off this time.

I see. I didn't test the result recorded code. It doesn't act as recorded. I'm not sure why.

Here's a different method. It works for your example scenario.

Please Login or Register  to view this content.