Thanks! Works great! Except for one thing :

If my sheet has 2 rows in a row that has a cell with more than 1024,
then the first letter of the text in the second row will be alone on
the first line like this:

ROW 1:
Servez à ce monsieur une bière et des kiwis. Servez à ce monsieur une
bière et des kiwis. Servez à ce monsieur une bière et des kiwis.
Servez à ce monsieur une bière et des kiwis. Servez à ce monsieur une

ROW 2 :
S
ervez à ce monsieur une bière et des kiwis. Servez à ce monsieur une
bière et des kiwis. Servez à ce monsieur une bière et des kiwis.
Servez à ce monsieur une bière et des kiwis. Servez à ce monsieur une

Any idea?...

On 28 avr, 12:29, joel wrote:
change just the main routine

from
Sub DisplayLongText()
* * *'Adds line feedcharactersas required on cells in selection that are
longerthan1024characters
* * Dim cel As Range
* * Dim col As Long
* * For Each cel In Selection
* * * * AddLineFeeds cel, col
* *Next
* * col = 0 'Force line length dialog to display thenexttime sub runs
End Sub

to
Sub DisplayLongText()
* * *'Adds line feedcharactersas required on cells in selection that are
longerthan1024characters
* * Dim cel As Range
* * Dim col As Long
* * For Each cel In Selection
* * * if len(cel) 1024then
* * * * AddLineFeeds cel, col
* * * end if
* *Next
* * col = 0 'Force line length dialog to display thenexttime sub runs
End Sub



"Souriane" wrote:
Good morning all:

I have a table with a few cells with about 2000characterseach . *Of
course, Excel will not show the text after1024. *I would like to do a
macro that wouldfindthenextcellwithmorethan1024characters, in
order to format thecellwith the macro found on this page:

http://www.vbaexpress.com/kb/getarticle.php?kb_id=421

I could do it manually but it is a merged document and I remerge this
document at least once a week.

Any help?

Thank you!

Souriane- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -