Word Wrap & Autofit Row Height Stop Working if Lots of Text


New Member
Mar 15, 2012
Please note: I've been researching this online for days and have found many threads with a similar issue relating to merged cells, but I'm not using merged cells, so haven't found a solution to this problem.

Version: <?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:eek:ffice:eek:ffice" /><o:p></o:p>
Excel 2003<o:p></o:p>
What I’m trying to do: <o:p></o:p>
Display all contents of cells containing lots of text without any manual adjustments.<o:p></o:p>
Problem: <o:p></o:p>
Excel can hold about 32,000 characters per cell but will only display about 1024 of them when using automated features like word wrap and autofit row height. I need to be able to view all contents of a cell without manual adjustments. Note that cells are formatted as General and none are merged.<o:p></o:p>

What happens when I go beyond the viewable limit:<o:p></o:p>
  • Word wrap stops wrapping after a certain amount of text. The text just goes off the right edge of the cell. I can still view all of the text in the formula bar when I click on the cell, but it won’t wrap anymore. I have to manually enter Alt + Enter to create line breaks/feeds in the cell.<o:p></o:p>
  • Autofit row height won’t adjust the height any taller after a certain point. Even when I manually create line breaks via the method above and double click the row divider to autofit row height, it won’t adjust any taller. I have to manually drag the row divider to display the remaining lines.<o:p></o:p>
What I need:<o:p></o:p>
A macro that will enter a line break/feed every X number of characters (but won’t break in the middle of words) and will set the row height based on the number of characters in the cell (I’ll use trial & error to determine how many characters should equate to a certain row height). I want the macro to initiate upon exiting a cell only in certain columns.

I know how to open the Visual Basic Editor but would need to know whether to place the macro code in a new module or in ThisWorkbook.

Thank you in advance! If someone could solve this, it would help soooo many people!!

Some videos you may like

Excel Facts

Add Bullets to Range
Select range. Press Ctrl+1. On Number tab, choose Custom. Type Alt+7 then space then @ sign (using 7 on numeric keypad)

Watch MrExcel Video

Forum statistics

Latest member

This Week's Hot Topics

  • Timer in VBA - Stop, Start, Pause and Reset
    [CODE=vba][/CODE] Option Explicit Dim CmdStop As Boolean Dim Paused As Boolean Dim Start Dim TimerValue As Date Dim pausedTime As Date Sub...
  • how to updates multiple rows in muliselect listbox
    Hello everyone. I need help with below code. code is only chaning 1st row in mulitiselect list box. i know issue with code...
  • Delete Row from Table
    I am trying to delete a row from a table using VBA using a named range to find what I need to delete. My Range is finding the right cell. In the...
  • Assigning to a variable
    I have a for each block where I want to assign the value in column 5 of the found row to the variable Serv. [CODE=vba] For Each ws In...
  • Way to verify information
    Hi All, I don't know what to call this formula, and therefore can't search. I have a spreadsheet with information I want to reference...
  • Active Cell Address – Inactive Sheet
    How to use VBA to get the cell address of the active cell in an inactive worksheet and then place that cell address in a location on the current...