By Neale Blackwood
The Wrap Text format is often used to reduce the width of a column and still allow the contents to be displayed, as it creates line breaks with a cell.
Excel has an icon in the Home Ribbon in the Alignment Section to Wrap Text.
The macro below puts the Wrap Text format on the cells that are selected prior to the macro being run. It also aligns the text to the top of the cell, which is the most common format people use with Wrap Text.
.VerticalAlignment = xlTop
.WrapText = True