Adding Columns......

[nolc]

I'm trying to programmatically grab data from a string which is located in xlsheet.Range("A" & i) row by row. With Mid, Instr, and Right split up the line of data where be needed and insert Columns to divide the string. Any ideas?

My original approach was to grab the first section of data from the string, insert a column (Shift:=xlToRight), then paste. Once I've grabbed all the data I would delete the last column holding the original string. Is there any easier way?

[waderw]

Try using:

Data>Text to Columns

This will split whatever is in the selected cell into its own cell in its own column.

[nolc]

The line of code is? :
Data>Text to Columns

[waderw]

No. Select the cell you wish to parse. Then go to the top of Excel and look for:
"Data" then choose "Text to Columns" then follow the wizard that follows.

You might want to record this if you are looking for the code.

[nolc]

I hear ya...I'll see if that helps.