Macro to insert an "Alt+Enter" at a specific location in a cell

[gberg]

Working with Excel 2010

I have a reoccurring spread sheet that I would like to have a macro to insert an Alt+Enter command in the 36th space of multiple cells. The information always starts in Cell "B4" and will continue in column B, but there are not always the same number of affected cells (i.e. it could go to cell "B20" or "B32" there is no set range to the end)

What I am looking to do is:

Information in its original form
APA TOWER ABC CONTRACTING

Desired Result
APA TOWER
ABC CONTRACTING

Thanks for any Help

Greg

 

[ranman256]

Range("B4").value = left(Range("B4").value,36) & vbCrLF & mid(Range("B4").value,37)

 

[gberg]

Worked great. How can I make it continue down row B? (i.e B5, B6, B7 to the last cell with data?)

Thanks