If we have rows of standard width, it is easy to determine if the text fits
neatly in that cell or if it "spills over" into its right-most neighbor(s).

For example, say we want to know if the text in A1 fits in A1 or spills
over. We:

1. copy A1 to an un-used row, say A100.
2. store the row height
3. turn on text wrapping for cell A100
4. autofit row 100
5. re-examine the row height

If Excel had to increase the row height, then the text did not fit. This
means that the original text spilled over in A1:

Sub Macro1()
Range("A1").Select
Selection.Copy
Range("A100").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.WrapText = True
Rows("100:100").Select
Selection.Rows.AutoFit
MsgBox (Rows("100:100").Height)
End Sub

Perhaps this shabby little trick can help you.
--
Gary''s Student - gsnu200818


"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.