I would like to select a column within a selection.

For instance if the original selection is A1:D10

I would like to select D1:D10 and then manipulate the data.

I have tried many ideas but none seem to work.

For instance why doesn't the following select the first cell in the
last column of the selection. It selects a cell outside the selection
entirely.

Selection(Cells(1, Selection.Columns.Count)).Select

In addition, isn't the selection the range itself?
Msgbox selection.address
gives the correct address of the original selection.

Thanks for any help.

Don

Don,

Selection.Cells(1, Selection.Columns.Count).Select
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware


"don"
wrote in message
I would like to select a column within a selection.

For instance if the original selection is A1:D10
I would like to select D1:D10 and then manipulate the data.
I have tried many ideas but none seem to work.
For instance why doesn't the following select the first cell in the
last column of the selection. It selects a cell outside the selection
entirely.

Selection(Cells(1, Selection.Columns.Count)).Select

In addition, isn't the selection the range itself?
Msgbox selection.address
gives the correct address of the original selection.
Thanks for any help.
Don

With Selection
..Range(Cells(1, .Columns.Count),
Cells(.Rows.Count, .Columns.Count)).Select
End With

Selects D1:D10 when A1:D10 is the original selection

Ken Johnson

I'm not sure what you're doing, but maybe these will give you some more
alternative:

ActiveSheet.Range("a1:d10").Select
Selection.Columns(1).Offset(0, 3).Select

==

ActiveSheet.Range("a1:d10").Select
Selection.Columns(4).Select

==

ActiveSheet.Range("a1:d10").Select
With Selection
.Columns(.Columns.Count).Select
End With

don wrote:

I would like to select a column within a selection.

For instance if the original selection is A1:D10

I would like to select D1:D10 and then manipulate the data.

I have tried many ideas but none seem to work.

For instance why doesn't the following select the first cell in the
last column of the selection. It selects a cell outside the selection
entirely.

Selection(Cells(1, Selection.Columns.Count)).Select

In addition, isn't the selection the range itself?
Msgbox selection.address
gives the correct address of the original selection.

Thanks for any help.

Don

--

Dave Peterson