Hi Group,

Filling a range by below code;

For i = 1 to 25
Sheets("Sheet1").Range("A1") = Sheets("Sheet1").Range("A1") &
Sheets("Sheet2").Cells(1,i)
Next

The Range("A1") is a merged cell (A1:O1). It is formatted as WrapText. Is
there a way to
autosize the rowheigth of A1? The length of the text may vary from just one
word to 4 lines
in A1. If a text is "manualy" written into A1 by linebreaks it will
automatically size by the lines.
This is not happening when the text is "pasted" by code. The Row Autofit
seems not do the
trick. Must there be forced linebreaks to make it work?

Thanks for some help.

Brgds

CG Rosén

PS: Thanks Gary for the help with my last question, it works fine!