wraptext

Hey everyone! I'm trying to execute something like this: msdn.microsoft.com/en-us/library/office/ff821514(v=office.15).aspx but without changing the cell value... I basically want a button that will wrap/unwrap all of the cells in the "B" column with one click. If i have to do the cell range...

I don't know if VBA can do this, but I have a range that I am trying to copy, and one of the cells has text data that I need to wrap at 40 characters. If I set the word wrap in Excel, it works fine as long as it is in a Microsoft Office program. However, I need the macro to wrap text at 40...