You have a choice. WrapText will increase the height of a cell to fit the
text in, and AutoFit will increase the width of the cell to fit it in. With
WrapText you can preset the width of the column to have some control over how
man lines actually wrap. You can apply it to a single cell or multiple cells
in a range.
Here is some sample Syntax:
ActiveSheet.Column("B").AutoFit
ActiveSheet.Range("B2").WrapText = True

For more detail refer to the VBA help file in the VB editor.

"suestew" wrote:

I need to wrap text in only those cells where the text won't fit on the
printed page. Here is how I see it.

If the text of a cell extends beyond 15 inches(arbitrary length) (or beyond
Column BD) then wrap it to fit within one cell.