Try changine
TextWrap = True

to
..Wraptext = true

"jennie" wrote in message
...

Hi,

Here is the problem:
Cells A1:A15 form a range called TheRange, they are a set of merged
cells.

I want the text that is imputed into TheRange from the Userform to have
text wrap on and then autofit the row.
However this does not seem to work with the merged range - the text
wrap is on but the autofit doesn't fit the row so all the text can be
seen, only the top row of text can be seen in effect.
To get all the text to be seen I have to go and change the row heights
manually, this is not an option as it should all be an automatic
process - and I can not hard code the row heights in as I don't know
how much text there will be each time.

This is the code I am currently using after the text has been entered
into TheRange:

w is the worksheet

With w.Range(TheRange)
TextWrap = True
EntireRow.AutoFit
End With

Any help / suggestions would be great
Thanks a lot
Jennie


--
jennie
------------------------------------------------------------------------
jennie's Profile:
http://www.excelforum.com/member.php...fo&userid=6706
View this thread: http://www.excelforum.com/showthread...hreadid=263131