TextToColumns
 

I am importing a text report into four different worksheets. I have
that part working, Now I bringing the data into B2. A column is
reserved for checkboxes and Row 1 for Column Headings. I need the code
to select b2, downward till last nonempty cell, to apply TextToColumns
method. If this is not clear let me know. Working on 3 hours of sleep.

TextToColumns
 

Set rng = Range(Cells(2,2),Cells(2,2).End(xldown))
rng.select

if you have empty cells within the data

Set rng = Range(Cells(2,2),Cells(rows.count,2).End(xlup))
rng.select

--
Regards,
Tom Ogilvy

"Randy Reese" wrote in message
...
I am importing a text report into four different worksheets. I have
that part working, Now I bringing the data into B2. A column is
reserved for checkboxes and Row 1 for Column Headings. I need the code
to select b2, downward till last nonempty cell, to apply TextToColumns
method. If this is not clear let me know. Working on 3 hours of sleep.

TextToColumns
 

Thank you for being so active on this newsgroup. You have helped so
many people here.

On Tue, 24 Feb 2004 14:09:49 -0500, "Tom Ogilvy"
wrote:

Set rng = Range(Cells(2,2),Cells(2,2).End(xldown))
rng.select

if you have empty cells within the data

Set rng = Range(Cells(2,2),Cells(rows.count,2).End(xlup))
rng.select