TextToColumns

  • Thread starter Thread starter Randy Reese
  • Start date Start date
R

Randy Reese

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.
 
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
 
Thank you for being so active on this newsgroup. You have helped so
many people here.
 
Back
Top