Split excel cell based on its length

[Monty9]

Hello,

I have 3 columns in the excel sheet and I want to split the third column based on the cell's value length (> 40 CHARS) into a new row, but the code should also copy the values of Columns 1 and 2. Example as below;

Initial State:

Column A​	Column B​	Column C ​
Breed	Husky	Siberian Husky is thickly coated dog of medium size and great endurance

After Execution:

Column A​	Column B​	Column C​
Breed	Husky	Siberian Husky is thickly coated dog of
Breed	Husky	medium size and great endurance

It would be great if the code can take care of the entire word to keep Column C cell length <= 40 but otherwise is also ok.

Thank You

 

[Marc L]

​

Little optimization :​

            S = P > 1:  If S = 0 Then P = L