Delimiting Data with Fixed Width w/o Breaking Words

Hello,

I am trying to break up information in cells to fit a 30 character fixed length. The information in the cells is alpha numerical. I need the cells to be split by a space (" "), or in between words.

So for example if the cell has 150 characters with spaces throughout, it would need to be broken up into 5 different cells at a "space" that makes each cell receive as close to 30 characters as possible. Note I will be mapping this to a server and only 5 cells of no more than 30 characters can be used.

I was trying to write a vba code that determined the locations of the spaces and then split them based on their position, that works with descriptions that are 60 and fewer characters, but not larger as is doesn't always align to 30 characters after the split. I was going to write in a len() verification check to mitigate.

For my particular project, I have data in Column "B" starting at row 2. I need this information broken down to columns B-F depending on # of characters in the original cell. Also need the code to be smart enough to truncate any extra information if it exceed the 30 character limit in the last column.

I thought this was going to be fairly easy (have little to basic coding background where in vba I know what it can do but not always how to write the code, thanks google and forums). I would paste what I have but I think I am far off of the end result as right now my code only finds the first space in the data.

If anyone could help, that would be greatly appreciated.

This worked!

Only note is that I wanted it to repaste in column B and move over from there. No big deal, just added another column before running the code. Mentioning in case someone else has a similar project so as to be careful as it will over write or add onto the back end of the "5th" column.

Thank you for the timely response! I really appreciate it!

That worked perfectly! Thanks for the updated code!