Range(ActiveCell, Cells(ActiveCell.row, Columns.Count).End(xlToLeft)).Select

Try this

Range(Selection, Selection.End(xlDown)).Select
this will also stop on the first blank cell?

--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"Darron Ross" wrote in message ...
I'm selecting some data with a macro that has some blanks
within the data. I'm using:

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

to select the cells below my current activecell. However
when I go to select cell to the right of my current
activecell using:

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

It only selects part of the data. It stops right before a
blank cell and doesn't continue. This command is doing
what it should but I need to be able to select everything
to the right. I would be very happy if the code selected
all the way to IV. Just to insure I’m getting everything.

Thanks for your time and Help.
Darron